#!/cygdrive/c/Perl/bin/perl package product_search; use strict; use strip_product_numbers; sub search { # Grab parameters that are passed to this module my ($si1, $fullSearch) = @_; # As it finds a product that matches, it processes it (strips product number from title, etc) then should print it print "$product\n\n"; } 1;