#!/usr/bin/perl

use warnings;
use strict;

my $file    = "z:\\test.exe";
my $groesse = -s($file);
my $fn      = $file;
$fn         =~ s/^(.*)\/(.+?)$/$2/;

print "Content-Disposition: inline; filename=\"$fn\"\n"; 
print "Content-Length: ". $groesse ."\n";
print "Content-type: " .&getmimetype($fn). "\n\n";    # getmimetype ermittelt den mime-typen, was sonst :)

open(IN,"$fn") or die $!;
binmode(IN);
binmode(STDOUT);

while (sysread(IN, my $Buffer, 2)) {
   print $Buffer;
} # while

close(IN) or die $!;

1;

sub send_binaryfile
{
   my ($file) = @_;

   binmode STDOUT;
   if(open(FILE, "< $file"))
   {
      binmode FILE;
      while(<FILE>) { print $_; }
      close FILE;
   }
}

print "Content-Disposition: inline; filename=\"$fn\"\n";
print "Content-Length: $groesse\n";
print "Content-Type: " .&getmimetype($fn). "\n\n";    
send_binaryfile($file);

$file = 'z:/test.exe';

$file = "z:/test.exe";