#!/usr/bin/perl -w use strict; use CGI; my $query = new CGI; print < Hello. EOF ##

##

#!/usr/bin/perl -w

use strict;
use CGI;
my $query = new CGI;

&routine;

sub routine {
print <



Hello.



EOF
}