#!/usr/bin/perl -w

# expand_test.pl - test script for Mail::Alias expand() method

use Mail::Alias;

my ($alias_obj);

$alias_obj = Mail::Alias::Sendmail->new("/etc/mail/aliases");		

print "\nEnter an alias to be expanded: ";
$alias = <>;
chomp ($alias);

if ($alias) {
	@namelist = $alias_obj->expand($alias);

}

print "@namelist\n";