# blah blah blah ... print $Page->header; print < HTMLSTUFF do_work($Info); print < HTMLSTUFF exit; sub do_work { my $Info = shift; print "

matching: $Info

$/"; if ( $Info =~ / / ) { print "

one word only please

\n"; return; } unless (open (FILE, "open: $!

\n"; return; } my @Names = grep(/$Info/,); foreach my $Name (@Names) { print "

$Name

\n"; } close(FILE); }