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