OS:         XP Pro w/ SP1
Webserver:  IIS v5.1
ActivePerl: v5.8.0.0.806
CGI-Upload: v1.05

Use statements:
   use CGI qw(:standard table*);
   use CGI::Upload;

Start form call:
  print $q->startform(-method=>'POST',-action=>$q->self_url,
             -name=>'editform',-enctype=>'multipart/formdata'); 

File field call:
      print $q->filefield(-name=>'src',-override=>1,-maxlength=>100);

Subroutine:
      sub fileupload {

my $upload = CGI::Upload->new;
my $fname = $upload->file_name('src');
my $file_type = $upload->file_type('src');
$upload->mime_magic();
my $mime_type = $upload->mime_type('src');
my $fh = $upload->file_handle('src');

$abfile = "c:\\Inetpub\\wwwroot\\images_test\\test_bill.jpg" ;
open (OFH, ">$abfile") or die "Error: File $file_name Upload: $!\n";
while(read($fh, $data, 1024)) {
   print OFH $data or die "Error writing: $!\n";
}
close OFH;
      }