#!/usr/bin/perl
use CGI qw(:standard);
my $dat = param("upfilenm"); my $pgn = param("pagename");
open PAGE, ">/usr/local/pagez/$pgn";
while (<$dat>) { print PAGE $_; }
close PAGE;