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\ +""); } }
In reply to Creating module files from subroutines by Anonymous Monk
| For: | Use: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |