Perl Postgresql Task Update