use MIME::Lite;

my $smtp_server = 'mail.seerver.cz';
my $from = 'user@seerver.cz';
my $to = 'somewhere@outside.cz';
my $pass = 'p4ssword';

my $msg = MIME::Lite->new(
                From     => $from ,
                To       => $to ,
                Subject  => 'test',
                Data     => "test"
);

$msg->send( 'smtp' , $smtp_server , AuthUser=> $from , AuthPass=> $pass , Debug=>4 );

print map {s!/!::!g; s/.pm$//; sprintf "%-20s %s\n", $_, ${"${_}::VERSION"} } sort keys %INC;

##</code><code>##


MIME::Lite::SMTP>>> MIME::Lite::SMTP
MIME::Lite::SMTP>>>   Net::SMTP(2.29)
MIME::Lite::SMTP>>>     Net::Cmd(2.26)
MIME::Lite::SMTP>>>       Exporter(5.58)
MIME::Lite::SMTP>>>     IO::Socket::INET(1.29)
MIME::Lite::SMTP>>>       IO::Socket(1.29)
MIME::Lite::SMTP>>>         IO::Handle(1.25)
MIME::Lite::SMTP=GLOB(0x2086504)<<< 220 mail.seerver.cz ESMTP Postfix (Deb
ian/GNU)
MIME::Lite::SMTP=GLOB(0x2086504)>>> EHLO mail.seerver.cz
MIME::Lite::SMTP=GLOB(0x2086504)<<< 250-mail.seerver.cz
MIME::Lite::SMTP=GLOB(0x2086504)<<< 250-PIPELINING
MIME::Lite::SMTP=GLOB(0x2086504)<<< 250-SIZE 20971520
MIME::Lite::SMTP=GLOB(0x2086504)<<< 250-VRFY
MIME::Lite::SMTP=GLOB(0x2086504)<<< 250-ETRN
MIME::Lite::SMTP=GLOB(0x2086504)<<< 250-STARTTLS
MIME::Lite::SMTP=GLOB(0x2086504)<<< 250-AUTH PLAIN LOGIN
MIME::Lite::SMTP=GLOB(0x2086504)<<< 250-AUTH=PLAIN LOGIN
MIME::Lite::SMTP=GLOB(0x2086504)<<< 250-ENHANCEDSTATUSCODES
MIME::Lite::SMTP=GLOB(0x2086504)<<< 250-8BITMIME
MIME::Lite::SMTP=GLOB(0x2086504)<<< 250 DSN
MIME::Lite::SMTP=GLOB(0x2086504)>>> MAIL FROM:<user@seerver.cz>
MIME::Lite::SMTP=GLOB(0x2086504)<<< 250 2.1.0 Ok
MIME::Lite::SMTP=GLOB(0x2086504)>>> RCPT TO:<somewhere@outside.cz>
MIME::Lite::SMTP=GLOB(0x2086504)<<< 554 5.7.1 <somewhere@outside.cz>: Relay access
 denied
SMTP RCPT command failed:
5.7.1 <pistoled@seznam.cz>: Relay access denied


##</code><code>##


C:::Perl::site::lib::sitecustomize.p
Carp                 1.04
Exporter             5.58
Exporter::Heavy      5.58
Fcntl                1.05
File::Basename       2.74
File::Spec           3.12
File::Spec::Unix     1.5
File::Spec::Win32    1.6
FileHandle           2.01
IO                   1.22
IO::File             1.13_01
IO::Handle           1.25
IO::Seekable         1.1
MIME::Base64         3.07
MIME::Lite           3.01
MIME::QuotedPrint    3.07
Mail::Address        1.77
SelectSaver          1.01
Symbol               1.06
XSLoader             0.06
re                   0.05
strict               1.03
vars                 1.01
warnings             1.05
warnings::register   1.01