printf "%s\n", $stat[2] & Fcntl::S_IFMT & Fcntl::S_IFLNK ? 1 : 0;