my $smtp;
$smtp = Net::SMTP->new( $mailhost, Timeout =} $tmout );
{print server response here}

$smtp->mail( $fromaddr );
{print server response here}

$smtp>to( $recip );
{print server response here}

$smtp>data();
{print server response here}

$smtp>datasend( "To: $recip\n" );
$smtp>datasend( "From: $fromaddr\n" );
$smtp>datasend( "Subject: $subject\n" );
$smtp>datasend( "\n" );
$smtp>datasend( "$body\n" );
$smtp>dataend();
{print server response here}

$smtp>quit;

##</code><code>##

$response=$smtp->mail( $fromaddr );
print "$response\n";