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