#!/usr/bin/env perl

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

my $location="$var1/$var2/$var3/";

sub find_ksh {
    my $F = $File::Find::name;

    if ($F =~ /ksh$/ ) {
        print "$F\n";
    }
}


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

##</code><code>##

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

##</code><code>##

#!/usr/bin/perl
use strict;
use warnings;
use Data::Dumper;

my $path = shift || '.';

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

chomp @files;
print Dumper \@files;

##</code><code>##

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