my $formquery = CGI->new;
my $formbulk = $formquery->param('bulk');

  my $uploaddir = "/tmp/";
        $formbulk =~ s/.*[\/\\](.*)/$1/;
        my $upload_filehandle = $formquery->upload("bulk");
        open UPLOADFILE, ">$uploaddir/$formbulk";
        binmode UPLOADFILE;
        while ( <$formbulk> ) {
                print UPLOADFILE;
        }
        close UPLOADFILE;