Usage: grep [OPTION]... PATTERN [FILE]...
Try `grep --help' for more information.
cure1:      "|/usr/local/sbin/vandos.pl /var/vandos/cure1.msg cure1@www.usamarinestore.com", \cure1
sur:    forward@ths.com


##</code><code>##

#!/usr/bin/perl

$arg1 = $ARGV[0];
@filelist =  ` find /home/sites/$arg1/users -type d `;
chomp @filelist;
@store = ();

foreach $fle(@filelist)
{
($junk, $reqd )=split (/\/users\//,$fle);
($reqd, $junk) = split (/\//,$reqd);
push (@store,$reqd);
}

foreach(@store)
{
print `cat /etc/mail/aliases | grep $_`;
}