#!usr/local/bin/perl -w use CGI; $query =new CGI; $guest_file = "guests.txt"; &print_page_start; if ($query->param()) { $search_name = $query->param('search_name'); eval { open (GUESTS, "< $guest_file") or die "Can't open $guest_file: $!"; while () { chomp; ($name, $email, $comments) = split /::/; if ($name =~ /$search_name/i { print "$name
\n$email
\n$comments
\n
\n"; } } } } else { print "
\n"; print "
\n"; print "\n"; print "
\n"; } chomp $@; if ($@) { print "ERROR: $@
\n"; } &print_page_end; sub print_page_start { print $query->header; print "\n\nSearch for Records\n"; print "\n\n"; print "

Search for Records

\n; } sub print_page_end { print "\n\n"; }