Select Code to Download

use Data::Dumper;
use Tie::Autotie 'Tie::IxHash';
tie %data, 'Tie::IxHash';
...
  do "File";

  print Dumper \%data;

$VAR1 = {
          'SomeStuff' => {},
          'SomeMoreStuff' => {}
        };