#!/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;