#!/usr/bin/perl use CGI; my $page = new CGI; print $page->header(); print ""; print $page; print "
"; test(); print ""; sub test{ print $page; }