#!/usr/bin/perl --
use strict;
use warnings;
use CGI();
$|=1;
$ENV{QUERY_STRING}="";
{
my $q = CGI->new("".$ENV{QUERY_STRING});
$q->param(qw' chicken ididid ');
print join "\n",
$q->start_html,
$q->start_form(
-method=>'POST',
-action=> $q->self_url,
-enctype=> &CGI::MULTIPART
),
$q->filefield('file'),
$q->hidden(pregeneratedID => 123456 ),
$q->end_form,
$q->end_html;
}
__END__
Untitled Document