open (PAGE, "<staging.log");
@lines = <PAGE>;
foreach $line (@lines)
{
$newline = $line;
}
close (PAGE);

#####  Sending Email
my $recipient1 = 'johnny@abc.net';
my $smtp = Net::SMTP->new('mailrelay.acme.com',
					Hello => 'email.acme.com'
					);

$smtp->mail ($ENV{USER});
$smtp->recipient($recipient1);
$smtp->data();
$smtp->datasend("$newline");
$smtp->datasend();
$smtp->quit;