Select Code to Download

#!/usr/bin/perl -w

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

$File::Find::dont_use_nlink = 1;