Select Code to Download

#!/usr/bin/env perl

...


find({ wanted => \&find_ksh, no_chdir=>1}, $location);

opendir(my $dh, $some_dir) || die "Can't opendir $some_dir: $!";
my @files= map{s/\.[^.]+$//;$_}grep {/\.ksh$/} readdir DIR;
closedir $dh;

#!/usr/bin/perl
use strict;
...

chomp @files;
print Dumper \@files;

my @files = `find $path \( -name '*.ksh' -o -name '*.txt' \)`;