for my $file (sort grep /file/, param()) {
    print p();
    my $handle = upload($file);
    open (IMAGE, ">$handle") || die "Couldn't open $handle: $!";
    my $buffer;
    while (read($handle, $buffer, 10240)) {
      print IMAGE $buffer; 
    }   # while read or for my file sort ???

    unless (defined($handle)) {
      if ($file =~ /(\d+)/) {
        print h3("File request $1 did not return a handle\n");
      }    # if $file =~ \d
      next;
    }      # unless def $handle
    print p(), h3("Uploaded $handle"), br(), "<pre>";
    print encode_entities($_) while <$handle>;
    print "</pre>";
 }   # for my $file sort