#Execute Test Mail Script
system ('mail briantest@server.com <test');
$SIG{INT} = sub { die "Just Send it!"};
$SIG{TERM} = sub { die "Do it now!"};

sleep(1);


#Unix Commands
my $PrStat = qx(prstat 1 1 | grep Total);
my $Mail = qx(tail -15 /var/log/syslog | grep briantest);
my $Iface = qx(ifconfig -a);


#Text Capture File
chomp($d=`date +%Y%m%d`);
open F,">Report_$d.txt";
print F "Here is the Results from the Script\n\n";
print F "-------------------------------------\n\n";
print F $PrStat;
print F "-------------------------------------\n\n";
print F $Mail;
print F "-------------------------------------\n\n";
print F $Iface;


print "This script has finished!\n\n";
print "Generating Email!\n\n";

#system ('mail test@server.com < Report_$d.txt);