Select Code to Download

#!/usr/bin/perl -w
use strict;
...
2004-02-02 1 morning       107.00
2004-02-02 2 afternoon     117.00
2004-02-02 3 evening       188.00

my $query = qq{
 SELECT
...
1 morning       120.33
2 afternoon     117.00
3 evening       171.00