Select Code to Download

my %stat;
find ( sub {
        my($dev,$ino)= stat $File::Find::name;
        ++$stat{$dev}->{$ino};
}, $targetdirectory);

find( {
    wanted => sub {
...
    no_chdir => 1,
    follow => 0,
}, '/');