print $query->header; #### print header; #### use CGI qw(:standard);