#! perl.exe

use strict;
use CGI;

my $q = new CGI;

my $file = $q->param('inputfile'));