#!/perl/bin/perl
use strict;
use warnings;

use File::Find;

find(\&wanted,  ('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");
	}
}