$ perl -le 'print -f "/dev/null" ? "IS" : "is NOT", " a file"'
is NOT a file