sub SendMail { 
my ($title) = $_[0]; 
my ($message) = $_[1]; 
my ($techname); 

@recipients = ("pat", 
"paul", 
"peter"); 

foreach $techname (@recipients){ 
system ("echo '$message' | mail \"techname\@company.com\" -s \"$title\""); 
} 
}