#!/usr/bin/perl

use CGI ':standard';

if ( param('filename') ) {
    my $input_filehandle = upload( 'filename' );
    open WQ, ">outdata.txt" or die_nice("Can't open outdata.txt, Perl says $!");
    print WQ $_ while <$input_filehandle>;
    close WQ;
    print header(), "Uploaded OK";
}
else {
    print
      header(), 
      start_multipart_form(),
      "Enter File :",   
      filefield('filename','',50),
      br,
      submit('submit','Upload'),
      endform; 
}

sub die_nice { print header(), shift }