Help for this page

Select Code to Download

Select or download this

sub normal_results{
  print <<HTML;
...
HTML
} # End of normal_results subroutine
################ END NORMAL RESULTS SUBROUTINE

Select or download this

#!/usr/bin/perl

...
} # End of print_results subroutine
################  END PRINT RESULTS SUBROUTINE