use strict;

use CGI::Carp ('fatalsToBrowser');
use CGI ('param', 'upload');

print "Content-type: text/html\n\n";

print "File upload...";

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

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


binmode($filehandle);

open(OUT, ">$originalname")
   or die("kann nicht schreiben: $!");
binmode(OUT);  # danke an Martin den masterchecker;-)

while ($zeile = <$filehandle>) {
    print OUT $zeile;
}

close OUT;
close $filehandle;



print "<p>Fertig, hier ist ihr bild:\n";
print "<p><img src=\"$originalname\">\n";