#!/usr/bin/perl use CGI; # this is used for getting the form values my $q = new CGI; my $num1 = $q->param('first'); my $num2 = $q->param('second'); my $operation = $q->param('oper'); #$theuser = '' unless $theuser; print "Content-type: text/html\n\n"; print "\n"; print "
\n"; print "\n"; print `date`; print " |