#!/usr/bin/perl -w
use strict;
use DBI;

my $dbh = DBI->connect("dbi:Pg:dbname=t", "use", "pw")
        or die "cant connect: $!\n";

my $s = $dbh->prepare(
        "SELECT day, purpose
        FROM mileage
        WHERE day BETWEEN ? and ?
        ORDER BY day"
);

$s->bind_param(1, "1999-01-01", {TYPE=>DBI::SQL_VARCHAR} );
$s->bind_param(2, "1999-12-31", {TYPE=>DBI::SQL_VARCHAR} );


$s->execute;

while ( my @row = $s->fetchrow_array)
{
    print "$row[0], $row[1], \n";
}
$s->finish;
$dbh->disconnect;