Select Code to Download

C:\_32>perl -le "opendir $rd, 'special' or die $!; print 'dir' if -d $
+rd; print 'file' if -f $rd;"
The dirfd function is unimplemented at -e line 1.
...

C:\_32>perl -le "opendir RD, 'special' or die $!; print 'dir' if -d \*
+RD; print 'file' if -f \*RD;"
The dirfd function is unimplemented at -e line 1.

C:\_32>perl -le "open $rd, 'try.pl' or die $!; print 'dir' if -d $rd; 
+print 'file' if -f $rd;"
file
...

C:\_32>perl -le "open RD, 'try.pl' or die $!; print 'dir' if -d \*RD; 
+print 'file' if -f \*RD;"
file