Select Code to Download

1.  Read in the message piped to the script line by line
2.  Append the data to a temporary file
...
4.  Save the "from" off into a variable
5.  Parse the /etc/passwd to build a "recipient" list
6.  system (cat $tmp|sendmail -bm -f"$from" "$recip");

#/usr/bin/perl -w
use strict;
...
}
system (cat /tmp/somefile|sendmail -bm -f"$from" "@recips");
unlink "/tmp/somefile";