use strict;
      use warnings;
      use Net::SMTP;

      $smtp = Net::SMTP->new('$my_host');
	 $mail_to='abc@gmail.com';
      $smtp->mail($ENV{USER});
      $smtp->to($mail_to);

      $smtp->data();
      $smtp->datasend("To: $mail_to\n");
      $smtp->datasend("\n");
      $smtp->datasend("A simple test message\n");
      $smtp->dataend();

      $smtp->quit;

    print "Email sent successfully\n";