Select Code to Download

open FH, "$data" or die "Can't open $data: $!";
flock (FH, 1) or die "Can't lock $data for reading: $!";
...


print Dumper( \%partners);

$VAR1 = {
          'fr065603' => [
...
                          'fr065603'
                        ]
        };

}    elsif ($level == 2) {

...
        }
    }