Select Code to Download

use Template::Extract;
use Data::Dumper;
...
print Data::Dumper::Dumper(
    $obj->extract($template, $document)
);

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