my $boundary_string = "\n" . "--End" . "\n";
my $end_of_data = "\n" . "--End--" . "\n";

my @file_list = ("wlmlm401.exe");

print <<EOH;
Content-type: multipart/x-mixed\;boundary=End

EOH

foreach my $file ( @file_list ) {
&send_file( $file );
print $boundary_string;
}
print $end_of_data;
exit(0);

sub send_file {
my $file = $_[0];
if ( open (FILE, "< $file")) {

print <<EOF;
Content-type: application/octet-stream
Content-disposition: attachment\; filename=$file

EOF

binmode FILE;
print <FILE>;
close (FILE);

} else {
print "Cannot open file $file!"}
}

##</code><code>##

$/ = 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",
#                   );