Select Code to Download

use MIME::Lite;

...
$msg->send( 'smtp' , $smtp_server , AuthUser=> $from , AuthPass=> $pas
+s , Debug=>4 );

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

MIME::Lite::SMTP>>> MIME::Lite::SMTP
...
SMTP RCPT command failed:
5.7.1 <pistoled@seznam.cz>: Relay access denied

C:::Perl::site::lib::sitecustomize.p
...
warnings             1.05
warnings::register   1.01