Select Code to Download

use strict;
use warnings;

foreach my $filepage (@dirarray) {...};

foreach (@dirarray) { 
my $filepage = $_;
..
}