close STDOUT; # comment out to see the difference, try opening STDOUT to something else
    use Perl;
    my $p = Perl->new( ARGV => [ '-le', 'print(1)for(1..22)'] );
    $p->run;