use CGI;
    use Fcntl;
    use strict;

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