use CGI ':all';
    use Fcntl;
    use strict;

    my $q = new CGI;
    print header,
          start_html('file upload'),
          h1('file upload');