Returning a value from an update or insert using DBD::Pg

I know in Oracle I do something like this:

my $sth = $self->dbh->prepare(qq{ update users set
                                  valid=0,end_date=sysdate
                                  where id='$self->{id}' returning $end_date
                                  into :1});

Is this possible with DBD::Pg?



--
Barry Hoggard