#!/perl/bin/perl -wT

use CGI qw(:standard);
use CGI::Carp qw(warningsToBrowser fatalsToBrowser);
use Mail::Sender;

#use strict;

print header;
print start_html( "Results" );
     
$sender = new Mail::Sender {
	smtp => 'www.2wire.com',
	from => 'heygohey@hotmail.com',
	on_errors => undef,
}
or die "Can't create the Mail::Sender object: $Mail::Sender::Error\n";

$sender->Open({
	to => 'heygohey@hotmail.com',
	subject => 'Sorry, I\'ll come later.'
})
or die "Can't open the message: $sender->{'error_msg'}\n";

$sender->SendLineEnc("I'm sorry, but thanks to the lusers, I'll come at 10pm at best.");
$sender->SendLineEnc("\nHi, Jenda");
$sender->Close()
or die "Failed to send the message: $sender->{'error_msg'}\n";

print end_html;