Select Code to Download

my (@records,$cur);
while(<>) {
...
    else { warn "didn't handle input line: $_" }
}
push @records, $cur if defined $cur;

$VAR1 = [
          {
...
                              ]
          }
        ];