#!/usr/bin/perl -w
my $recipients = 'admin@site1 admin@site2';
open MAIL, "|mailx -s 'updated files' $recipients";
print MAIL<<HEADER_END;

Here are today's updated files.

Save the rest of this message to a file (for example, "updated.shar") and then run it in a shell (for example,
"sh updated.shar") to extract.

HEADER_END
print MAIL `shar @ARGV`;
print MAIL `cat ~/.signature`;
close MAIL;