#!/usr/bin/perl -w

use strict;
use File::Find;

find( \&handler, "/mnt/morkcd" );

sub handler {
    print "$File::Find::name\n";
}

##</code><code>##

$File::Find::dont_use_nlink = 1;