Help for this page
#!/usr/bin/perl -w use CGI; ... P;P0.0 P;P0.00 test_header
print <<test_header; ... P;P0.0 P;P0.00 test_header