Select Code to Download

$dir= shift || '.';

...
    next if $file=~/^\./;
        open (FH, ">", "$file") or die "Can't open file $file: $!\n";
        my @file_lines=<FH>;

     open (FH, "$dir/$file") ...