Select Code to Download

$SIG{ALRM} = \&every_sec();  alarm(1);

...
    $Counter = 0;
    alarm(1);
    }

foreach $filter (qw(filter1 filter2 filter3)) {
    my $fh = FileHandle->new();
...
              }
         }
     }