#!/Perl/bin/perl

require "CGI.pm";

$query = new CGI;
print $query->header();

$infile = $query->param('infile');
$player = $query->param('player');

$intodir="c:\\apache\\htdocs\\images\\" . $player . ".jpg";
$image="/images/" . $player . ".jpg";

$uph = $query->upload("infile");
binmode $uph;

open UPFILE, ">$intodir";
binmode(UPFILE);

while ( <$uph> )  {    print UPFILE;  }
close UPFILE;

print "<font face=verdana size=3>";
print "File: $infile uploaded to $intodir!</font><p>";
print "<img src=$image>";


exit;