| 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 | |