Select Code to Download

open OUT, ">test.txt";
for (1 .. 1000) {
    print OUT "Hello, Perlmonks!\n" x 10;
    print -s OUT;
}

open OUT, ">test.txt";
my $fh = select OUT;
...
    print OUT "Hello, Perlmonks!\n" x 10;
    print -s OUT;
}