Select Code to Download

#/usr/bin/perl -w
use strict;

...

open  $rh{$_}, ">test_$_.txt" or die $!   for keys %rh;
print { $rh{$_}} $_.$string               for keys %rh;

close $rh{$_} or die $!                   for keys %rh;

#error: 
# Bad file descriptor at C:\Perl\scripts\test5.pl line 20.