my $x = 'c:/users/joel/documents';
opendir(my $dh, $x) || die;
while(readdir $dh) {
	if (-d "$x/$_") { print "dir $_\n";}
	if (-l "$x/$_") { print "lnk $_\n";}
}
closedir $dh;