use File::Find;

find(\&handleFind, '../directory1');

sub handleFind {
    my $foundFile = $File::Find::name;
    print "$foundFile\n" if ($foundFile =~ /\.pl?$/i);
}