my $q        = new CGI;
my $session  = CGI::Session->load($q);
my $tmpfile  = $q->upload('upfile');
my $filename = $q->param('upfile');
print $q->redirect('showProgress.cgi');
close STDOUT;
close STDIN;
close STDERR;

# <-- script stops here!

append_file( 'debug', "start\n" );