Select Code to Download

#!/bin/env perl

...
my $data = $sth->fetchall_arrayref({});

warn Dumper $data;

$VAR1 = [
          {
...
          }
        ];