...
$sub_nlink = (lstat ($no_chdir ? $dir_pref . $FN : $FN))[3];
my $debug = stat ($no_chdir ? $dir_pref . $FN : $FN))[3];

if (-d _) {
...