#!/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";
        }


##</code><code>##

test.jpg
new_test.jpg
[Sat Nov  1 17:49:29 2003] [error] [client 127.0.0.1] Premature end of script headers: /var/www/cgi-bin/eface/clients.pl