print "Enter directory: ";
chomp(my $dir = <STDIN>);