Select Code to Download

use Template::Extract;
use Data::Dumper;
...
$obj->run($obj->compile($template), $document)
);
close F;

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