sub output_header { my $current_session = $_[0]; my $wrb_url = $_[1]; # so what about the NPH thing?! print $current_session->header(-nph=>1); # print $current_session->header(); print < ... [loads of HTML stuff goes here . . . ] ... ... ENDOFTEXT }