# (Your print stuff)
      open (FILE, "..."); # ...

      my ($cgi) = new CGI;
      print $cgi->header;