my $buffer;
my $file = $q->param('xls_file');
my $filename = $file;
$filename =~ s/^.*(\\|\/)//;
my ($tmpfh, $tmpfile) = File::Temp::tempfile("tmpXXXXXX", SUFFIX => ".xls", DIR => "tmp");

while(my $read = read($file,$buffer,1024))
{
print $tmpfh $buffer;
print $tmpfh "\n";
}
close($tmpfh);
$result1 .= "tmpfile: ".$tmpfile;
# my $xls = Spreadsheet:arseExcel::Simple->read('bsp.xls'); funktioniert, aber wenn ich die selbe Datei hochlade # bleibt das Skript hier hängen
my $xls = Spreadsheet::ParseExcel::Simple->read($tmpfile);