Select Code to Download

my $directory_name = shift || '.';

...
    or die "Can't opendir '$directory_name': $!";
my $file_count = scalar grep { -f "$directory_name/$_" } readdir $dh;
closedir $dh or die "Can't closedir: $!";