#!/usr/local/bin/perl
use strict;
my $argcnt = @ARGV;
my $ctr = 1;
if( $argcnt >= 2 ) {
my $email = $ARGV[0];
system "rm /tmp/mailfile.$$ 2>/dev/null";
while ( $ctr < $argcnt ) {
print " Sending $ARGV[$ctr] to $ARGV[0]\n";
system "/usr/bin/uuencode $ARGV[$ctr] $ARGV[$ctr] >> /tmp/mailfile.$$ 2>/dev/null";
$ctr = $ctr + 1;
}
system "/bin/mail $email < /tmp/mailfile.$$ 2>/dev/null";
system "rm /tmp/mailfile.$$ 2>/dev/null";
}