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

print OUT $attachment_data;
close OUT;