I tried that too:

use DBI qw(:sql_types);
use DBD::Pg qw(:pg_types);

my $sql = "...";
$sth->prepare($sql);

$sth->bind_param(1,$date, {pg_type => PG_DATE});
$sth->bind_param(etc.)...

$sth->execute();
[download]

Then, I get this error: Bareword "PG_DATE" not allowed while "strict subs"