Select Code to Download

'2007-05-13' => {
          subject => 'foobar',
          date    => '2007-05-13',   # Erm...
          label   => 'xyz'
}

my $ref = $dbh->selectcol_arrayref(
    "select date, label, subject from travel where date >= curdate()-5
+ order by date",
    { Columns=>[1,2,3] }
);