Select Code to Download

#!/usr/bin/perl

...
use Data::Dumper;
print Dumper($data);
print $template;

$VAR1 = {
          'records' => [
...
[% ... %]
 OAMPG: [% oampg %]   Extent ID [% extent_id %] on allocation page [% 
+alloc_pg %]
[% END %]

$template = <<EOD;
[% FOR records %]
...
EOD

$doc =~ s/\n/;\n/mg;