Select Code to Download

#!/usr/bin/perl

...

my $results = $sth->fetchall_hashref("skey");
say Dumper $results;

$VAR1 = {
          'Stuff' => {
...
                       'skey' => 'Stuff'
                     }
        };