#!/usr/bin/perl use strict; use warnings; use CGI; my $q = CGI->new; print $q->header; if ($q->param) { my $W = $q->param('w'); my $H = $q->param('h'); print "Screen resolution is: $W X $H\n"; } print < Test Page
HTML