Select Code to Download

use strict;
use warnings;
...
  my $src = "push \@{\$files{'" . join("'}{'", @dirs) . "'}}, '$fname'
+";
  eval "$src";
}

$VAR1 = {
  'P:' => {
...
                          ]
          }
       };