open(FILE, '<', $attachment) or die "Cannot open $attachment: $!";

##</code><code>##

open(FILE, '<', $attachment) or die "Cannot open $attachment: $!";
binmode FILE;
...

##</code><code>##

use File::Basename 'basename';