#!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";