#!/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"; if ($a > $b) { print "
A is bigger"; | else { print "
B is bigger"; | #### Useful strings. #### my $Q = '"'; my $NL = "\n"; my $TAB= " "; my $NBSP= " "; my $SP4= " ";