perl/smtp2.pl

   1 #!/usr/bin/env perl
   2 use strict;
   3 use warnings;
   4 #use IO::Socket::INET;
   5 #use Net::DNS;
   6
   7 use Net::SMTP;
   8
   9            my $smtp = Net::SMTP->new('mx50.seznam.cz');
  10
  11            $smtp->mail('harvie@harvie.cz');
  12            $smtp->to('harvie@email.cz');
  13
  14            $smtp->data();
  15            $smtp->datasend("Subject: testttt\n");
  16            $smtp->datasend("From: tomas\@mudrunka.cz\n");
  17            $smtp->datasend("To: harvie\@email.cz\n");
  18            $smtp->datasend("\n");
  19            $smtp->datasend("A simple test message\n");
  20            $smtp->dataend();
  21
  22            $smtp->quit;
  23