Select Code to Download

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

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