my $to = "ghenry\@perl.me.uk";
my $from = "support\@perl.me.uk";
my $server = "relay.plus.net" ;
$smtp = Net::SMTP->new($server);
$smtp->mail($from);
$smtp->to($to);
$smtp->data();
$smtp->datasend("To: Gavin Henry <$to>\n");
$smtp->datasend("From: Support <$from>\n");
$smtp->datasend("Subject: Rsync backup success on $date\n");
$smtp->datasend("The remote backup has been completed.\n\n");
$smtp->datasend("Info:\n");
$smtp->datasend("\n$rsync\n");
$smtp->dataend();
$smtp->quit;