print <<ENDH;
Content-type: application/octet-stream
Content-Disposition: attachment; filename: $updated

ENDH
open FILE,"< /my/file" or die "Can't open: $!";
binmode FILE;
local $/ = \10240;
while (<FILE>) {
  print $_;
}
close FILE;