#!/usr/bin/perl ######################################################################## ### FILE NAME: submit.pl my $file="submit.pl"; ### AUTHOR: B.A.Martin ### PURPOSE: Get inputs from a form. ### Versions: my $ver="0.1"; ### 0.1 bam:2012/12/01 ######################################################################### use strict; use CGI qw/:standard :newtag/; print header; # html format is now permitted to output. html(); #### Main processing # print "
SUM= $sum"; #### Useful strings. #### my $Q = '"'; my $NL = "\n"; my $TAB= " "; my $NBSP= " "; my $SP4= " ";