Select Code to Download

close STDOUT;
open STDOUT, '>', \$variable or die "Can't open STDOUT: $!";

#!/usr/bin/perl
use warnings;
use strict;
...
$ perl foo.pl
No output yet
But now: some information