use strict; use warnings; use CGI qw/:standard/; sub header { return "this is not the header you are looking for\n"; } print header; print CGI::header; print main::header;