$file = param('file');
binmode $file;
$encoded_file = MIME::Base64::encode($file);
print MAIL <<EOA;
...
Content-Disposition: attachment; filename="$file"
$encoded_file
EOA