Im not surprised it doesn't report anything

&error('$!');

Spot the error?

That encode_base64 sub it yucky too....you should use

use MIME::Base64 qw(encode_base64);

Hmmm also no exit in the error sub

I already posted code in this very forum on how to send a file by email.

Mods:http://wiredon.net/gt/download.shtml
Installations:http://wiredon.net/gt/