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;