$/ = undef;

@ARGV = ("/home/goldcal/www/files/wlmlm401.exe");
print multipart_init();
while(<>) {
  print multipart_start("application/octet-stream");
  print $_;
  print multipart_end();
}
print multiplart_final();

## UPDATE - THis part should not have been here, it is finger trouble ;)
#print $cgi->header( -type => "application/octet-stream",
#                   -expires => "-1d",
#                   -attachment => "wlmlm401.exe",
#                   );