```{index} single: s_ischr; Fcntl function ``` ```{index} single: Fcntl::s_ischr; Perl function ``` # s_ischr True if a stat-mode value names a character-special device. ## Synopsis ```perl my $mode = (stat "/dev/tty")[2]; print "char device\n" if S_ISCHR($mode); ``` Returns `1` when `$mode & S_IFMT == S_IFCHR`, `0` otherwise. With no argument, returns `0`.