Commit | Line | Data |
---|---|---|
21c4e167 H |
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 |