#!/usr/bin/perl 

use strict;
use warnings;
use File::Find;

if(my $m = shift){
	find(
		sub{
			/$m/i ? print"$File::Find::name\n" : 0
		},
		@INC);
	}
else {
	print "Please enter a single search string as an argument!\n";
}