#!/usr/bin/perl -w
# formcgi.cgi
use strict;
use CGI;

my $query = new CGI;
print $query->header;
print $query->start_html;
print $query->start_multipart_form(-action=>"test2.cgi");
print $query->filefield(-name=>'uploaded_file',
			    -default=>'starting value',
			    -size=>50,
			    -maxlength=>80);
print $query->br;
print $query->textfield('name','starting value',50,80);
	print $query->submit(-name=>'button_name',
			     -value=>'value');
print $query->end_multipart_form;
print $query->end_html;


##</code><code>##

#!/usr/bin/perl -w
#test2.cgi
use CGI;
use strict;
my $query = new CGI;
print $query->header;
print $query->start_html;
my $filename = $query->param('uploaded_file');
my $name = $query->param('name');
my ($buffer, $bytesread);
open (OUTFILE,">/images/screenres/$name.jpg") or die "This didn't open the file $!";
	while ($bytesread=read($filename,$buffer,1024)) {{
	   print OUTFILE $buffer;
	}
}
close OUTFILE;
print $query->p("$name $filename");
print "<img src=\"/images/screenres/$name.jpg\">";
print $query->end_html;