#!/perl/bin/perl
use strict;
use warnings;
use File::Find;

my $longdir = 250;

find( { wanted => \&wanted, preprocess => \&prep, no_chdir => 1 },
      ('j:', 'k:', 'l:', 'm:'));

sub wanted
{
    if ($File::Find::name =~ m/lnk$/i)
    {
        warn("Cannot process $File::Find::name: Shortcut\n");
    }
    elsif (-f $File::Find::name)
    {
        print($File::Find::name, "\n");
    }
    else
    {
        warn("Cannot process $File::Find::name: Directory or unknown type\n");
    }
}

sub prep
{
    return length $File::Find::dir > $longdir ? () : @_;
}