#!/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 $_`;
}