Select Code to Download

-T $file || -B $file
defined -T $file
defined -B $file

#!perl -l
use warnings;
...
defined -B '""'
  ? print "Returned True (unwanted behaviour)\n"
  : print "Returned False (wanted behaviour)\n";

-f:
Returned False (wanted behaviour)
...

defined -B:
Returned False (wanted behaviour)