Perl Net Smtp Attachment Example