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);