I did not have any problems using the MIME modules to look at attached files, but possibly you are using Windows or a recent Perl, and then to write the data, you must use binmode before writing your binary data to the file:

open OUT, "> $filename"
  or die "Couldn't write attachment to '$filename' : $!";
binmode OUT;

print OUT $attachment_data;
close OUT;
[download]