# Create ourselves an SMTP object
my $smtp = Net::SMTP->new(
   Host => 'some.mailserver.de', 
   Hello => 'my.mailserver.co.za', 
   Timeout => 30,
   Debug => 0);
# Talk to the server
$smtp->mail("postmaster\@mailserver.co.za", Size => 20971520)
   or die "Oops. Server said ", $smtp->code(), " ", $smtp->message();
$smtp->to("youthere\@mailserver.de")
   or die "Error on RCPT TO: ", $smtp->code(), " ", $smtp->message();
$smtp->quit;