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