##

use CGI;
my $q = new CGI;
my $filename = $q->param('UploadFile');
while (<$filename>) {
  # do something with each line of the file
}