Select Code to Download

use strict;
use warnings;
...

print "\n", Dumper( $bar->export ), "\n" ;

use strict;
use warnings;
...

print "\n", Dumper( $bar->export ), "\n" ;

$VAR1 = {
          '_SHARED_DATA' => {
...
                         }
        };