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 "opendir RD, 'special' or die $!; print 'dir' if -d \*RD; print 'file' if -f \*RD;"
The dirfd function is unimplemented at -e line 1.

##</code><code>##

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

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