#!/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);