#### #!/usr/bin/perl use warnings; use strict; use HTML::Template; use CGI; my $template = HTML::Template->new(filename => 'upld.tmpl'); my $cgi = new CGI; if ($cgi->param('datei')) { loadpic($cgi); exit; } print "Content-Type: text/html\n\n"; print q( ); print $template->output; sub loadpic { my $cgi = shift; my $file = $cgi->param('datei'); my $fh = $cgi->upload('datei'); print "$file
"; open OUT, ">/tmp/1.pic.jpg"; my $buffer; while (read $fh, $buffer, 512) { print OUT $buffer; } print "Content-Type: text/html\n\n"; close OUT; exit; }