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

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

##</code><code>##

    use CGI;
    use Fcntl;
    use strict;

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