Thanks for the assistance! I've tried to fiddle with my code and this is what I have ($dat is the upload filename):

  $udt = $que->upload($dat);
  open PAGE, ">$pgp$pgn";
#  while (<$udt>) { print PAGE $_; }
  while (read($udt, $buf, 16384)) { print PAGE $buf; }
  close PAGE;
[download]

It doesn't get past the upload line. I've checked other posts so I tried to just run $que->uploadinfo; to see if It would return anything and it kills the whole thing too. The only difference I saw (after much perusal) between our code was the use line where I have use CGI qw(:standard); so I tried to change it to just use CGI; like you have and it failed immediately. What's the difference between the use parameter options and is this the reason why my upload() kills the script? What do I have to do to be able to just use CGI;? Thanks again for any further help. This is way harder than I thought it would be. TTFN & Shalom.

-PipTigger

p.s. My bad! I just got it to werk! I love lerning new Perl! =) The problem was I didn't need upload at all. This werks great:

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

NiceNice!