#!/usr/bin/perl
# Set Variables
$mailprog = "/usr/bin/sendmail";
$youremail = "rickyao@soim.net"; # Your Email Address
$yourname = "Rickyao"; # Your Name
$file = "apache_pb.gif"; # File to send to user
$email = "rickyao@soim.net";
# Send file to user in email
open(MAIL, "|$mailprog -f $yourname -t $youremail") or die;
# Create headers
print MAIL "From: $yournamen";
print MAIL "To: $email n";
print MAIL "Subject: File: $file (uuencoded) n";
print MAIL "Requested File: $file n";
open(FILE, "uuencode $file $file|") or die;
while( <FILE>) { print MAIL; };
# Close the file and finish sending the mail
close(FILE);
close(MAIL);