Select Code to Download

$smtp->datasend( "Subject: FTP Access \n" );
$smtp->datasend( "\n\n" );

#Send the body

my $smtp = Net::SMTP->new($smtp_server,
          Hello => $my_mail_servers_id,
          Debug => 1 ) or return 0;