#!/usr/bin/perl use strict; use warnings; use CGI; my $q = CGI->new; print $q->header; my $a = $q->param('a'); my $b = $q->param('b'); my $result; $result = (scalar $a) + (scalar $b); print < Hello

Hello World

$result

EOF