Duplicate cgiSearch to mySearch then follow these steps:
sub wbSearch { # and hack right below:
if ($search eq "") {
print "You need to enter a search expression !";
} else {
#### the rest as is.......
#
#
} #dont forget the final curly braces
Andreas