Select Code to Download

#!/usr/bin/perl -w
use Data::Dumper;
...
 }

print Dumper \%hash;

$VAR1 = {
          'mysubdir\\file1.txt' => undef,
          'mysubdir\\file2.txt' => undef
        };