Alias - mail and host alias looking up package
use IM::Alias;
alias_read(mail_alias_files, addrbook_files); $result = alias_lookup(user_name); alias_print(alias);
hosts_read(hosts_alias_files); $result = hosts_completion(mail_address); hosts_print(alias);
alias_read("$HOME/.im/Aliases", "$HOME/.im/Addrbook"); hosts_read("$HOME/.hostaliases");
$result = alias_lookup('u'); print "$result\n" if ($result);
$result = hosts_completion('u@h'); print "$result\n" if ($result);
alias_print("a") displays mail addresses whose alias is "a". hosts_print("") displays all host aliases.