9 my $smtp = Net
::SMTP
->new('mx50.seznam.cz');
11 $smtp->mail('harvie@harvie.cz');
12 $smtp->to('harvie@email.cz');
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");
This page took 0.248997 seconds and 4 git commands to generate.