>md dir

>copy nul file
        1 file(s) copied.

>perl -le"if (-d $ARGV[0]) { print 'dir' } else { print 'not' }" dir
dir

>perl -le"if (-d $ARGV[0]) { print 'dir' } else { print 'not' }" file
not