#!c:/Perl/bin/perl use strict; use CGI qw/:standard/; print header, start_html('A Simple Example'), h1('A Simple Example'); my ($a1, $a2); $a1=param("arg1"); $a2=param("arg2"); print "$a1+$a2=" . ($a1+$a2) . "\n";