#!/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 " $file [$ver] \n"; print "\n"; print "INPUTS:
"; my $a= $in{"A"}; my $b= $in{"B"}; my $c= $in{"C"}; my $d= $in{"D"}; my $sum; $sum= $a + $b + $c + $d; print "

SUM= $sum"; #### Useful strings. #### my $Q = '"'; my $NL = "\n"; my $TAB= " "; my $NBSP= " "; my $SP4= " ";