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