use strict;
use warnings;
use diagnostics;
use File::Slurp;
#use Cwd;

my @files;


get_args();

sub get_args {

    my $dir;
    my $string;

    print "enter path\n";
    chomp( $dir = <STDIN> );
	
	print "enter match string\n";
    chomp( $string = <STDIN> );
    print "\n";

    @files = read_dir($dir);

    print $_ for @files ;

    traverse( $dir, $string );
}

sub traverse {
    
    foreach my $element (@files) {
       
        open $file, "<", $dir.'/'.$element;

        while (<$file>) {
            if ( $_ =~ m/$string/i ) {
                print "found $string in $element\n";
            }
        }
        close $file;
    }
    get_args();
}