pSearch.pl is unfinished, modify the main
module.pm from perl's example