C:\_32>perl -le "open(my $x,'>&STDOUT');"

C:\_32>