C:\_32>perl -le "open D, '<','test.txt' or die $!; print 'dir' if defined telldir D; print 'DONE';"
DONE

C:\_32>perl -le "opendir D, 'comp' or die $!; print 'dir' if defined telldir D; print 'DONE';"
dir
DONE

##</code><code>##

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.