Try something like this:
# blah blah blah ...
print $Page->header;
print <<HTMLSTUFF;
<body>
HTMLSTUFF
do_work($Info);
print <<HTMLSTUFF;
</body>
HTMLSTUFF
exit;
sub do_work {
my $Info = shift;
print "<p>matching: $Info</p>$/";
if ( $Info =~ / / ) {
print "<p>one word only please</p>\n";
return;
}
unless (open (FILE, "<names.html")) {
print "<p>open: $!</p>\n";
return;
}
my @Names = grep(/$Info/,<FILE>);
foreach my $Name (@Names) {
print "<p>$Name</p>\n";
}
close(FILE);
}
Can 'ya tell I don't do much CGI.. :(
