#! perl -w

use File::Find;

if ($#ARGV != 0) {
print "Invalid Usage:\n";
print "Usage: perl browse_string.pl <str>\n";
exit;
}

$searchStr = shift @ARGV;

@files = ();

@directories_to_search = (".");
find(\&wanted, @directories_to_search);
foreach $file (@files) {
	if (-d $file) {
	}
	else {
		open FILE, "<".$file or die "cannot open file ".$file."\n";

    	while (<FILE>) {
    		if (/$searchStr/) {
    			print "$file\n";
    			last;
    		}
    	}
    	close FILE;
    }

}

sub wanted {
@files = (@files, $File::Find::name);
}