#!/usr/local/bin/perl -w

use Net::SMTP;

$subject = "tempeh address";
#$date = `date`;
if ( defined(@ARGV) ) {
         $subject = "Commit message Revision @ARGV";
}

$smtp = Net::SMTP->new('smtp.o2.co.uk');
$smtp->mail('yut45390@github.com');
$smtp->to('yut45390@github.com');
$smtp->data();
$smtp->datasend("To: yut45390\@github.com\n");
$smtp->datasend("Subject: $subject\n");
$smtp->datasend("\n");

while (<stdin>) {
         $smtp->datasend($_);
}
$smtp->dataend();
$smtp->quit;