my $originalname = param('pic');
my $filehandle = upload('pic');

if (! $originalname) {
   die("Upload war nicht erfolgreich");
}
...
...

open(OUT, ">$originalname")