Select Code to Download

use CGI qw/:standard/; # this is FO
print header,
      start_html('some title'),
      ...

use CGI; # this is OO
my $q = CGI->new;
print $q->header,
      $q->start_html('some title'),
      ...

C:\>perl -MCGI -e "print header();"
Undefined subroutine &main::header called at -e line 1.

C:\>perl -MCGI -e "print CGI::header();"
Content-Type: text/html; charset=ISO-8859-1

sub header {
    my($self,@p) = self_or_default(@_);

my $q = CGI->new({});