Select Code to Download

    use CGI ':all';
    use Fcntl;
...
    print header,
          start_html('file upload'),
          h1('file upload');

    use CGI;
    use Fcntl;
...
    print $q->header,
          $q->start_html('file upload'),
          $q->h1('file upload');