use strict;
no strict 'refs';
foreach my $fd (qw(FILE STDOUT STDERR)) {
   print $fd "<a href=\"test.html\">testing</a>\n";
}
use strict;
[download]

PerlMonks parthenogenetically spawned by Tim Vroom.
PerlMonks somehow became entangled with The Perl Foundation.
Speedy Servers and Bandwidth Generously Provided by pair Networks
Built with the Perl programming language.