#!/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;