Select Code to Download

use strict;
use warnings;
use autodie;
...
  chomp $line;
  push @files, $line unless $line =~ /^\s*$/;
}

use File::Spec;
my $dirname;
...

  }
}