C:\_32>perl -le "open D, '<','test.txt' or die $!; print 'dir' if defined telldir $x; print 'DONE';"
Bad symbol for dirhandle at -e line 1.