Something

sub sendmail {
  my ($from,$subject,$message) = @_;
  my $to = "jmax1632\@gmail.com";
  my $sock = IO::Socket::INET->new( PeerAddr => 'localhost',
                                    PeerPort => 'smtp(25)',
                                    Proto    => 'tcp');
  print "sending HELO\n";
  print $sock "HELO\r\n";
  print <$sock>;
  print "sending MAIL\n";
  print $sock "MAIL From: $from\r\n";
  print <$sock>;
  print "sending RCPT\n";
  print $sock "RCPT To: $to\r\n";
  print <$sock>;
  print "sending DATA\n";
  print $sock "DATA\r\n";
  print <$sock>;
  print $sock "From: $from\r\n";
  print $sock "Subject: $subject\r\n\r\n";
  print $sock "$message";
  print $sock "\r\n.\r\n";
  print <$sock>;
  print "sending QUIT\n";
  print $sock "QUIT\r\n";
}