$file = "z:/test.exe";
$groesse = -s($file);
$fn = $file;
$fn =~ s/^(.*)\/(.+?)$/$2/;
print "Content-Disposition: inline; filename=\"$fn\"\n"; 
print "Content-Length: ". $groesse ."\n";
print "Content-type: " .&getmimetype($file). "\n\n";    #getmimetype ermittelt den mime-typen, was sonst :)
open(IN,"$file") or die $!;
binmode IN;
binmode STDOUT;

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

close(IN);