open my $input,'<',$datei
binmode STDOUT
print "Content-Type: $type\nContent-length: $groesse\n"
	."Content-Disposition: attachment; filename: \"$name\";\n"
	."\n$cont";