Select Code to Download

use strict;
use warnings;
my $dir = shift;
...
my @files=readdir DIR;
print $#files+1, "\n";
closedir DIR;

use strict;
use warnings;
my $dir = shift;
...
  # actions go here
}
closedir DIR;