Select Code to Download

#!/usr/bin/perl -w
use strict;
...
my $h = $sth->fetchall_hashref([ 1..2 ]);

print Dumper(\$h);

$VAR1 = \{
            '4' => {
...
                                   }
                   }
          };