#!/usr/bin/perl -w
use strict;
use CGI;
        my $formdata = CGI->new;
        my $file = $formdata->param('file');
        my $filename = $formdata->param('filename');
        my $fh = $formdata->upload($file);

        print STDERR "$file\n";
        print STDERR "$filename\n";
        if (defined $fh){<br>
        print STDERR "\$fh is defined\n";
        }