Select Code to Download

use DBI;
my $dbh=DBI->connect('dbi:Pg:dbname=test1');
...
use Data::Dumper;
print Dumper $results1;
print Dumper $results2;

$VAR1 = [];
$VAR1 = [
...
            undef
          ]
        ];