my $smtp = Net::SMTP->new('$my_host');
die "error connecting to $my_host" unless defined $smtp;

$smtp->mail($ENV{USER}) or die "error issuing MAIL command: ".$smtp->message();

...