different (don't know if it's better, because of 'strict'-issues):

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