my ($self, $cgi) = @_; my $name = $cgi->param('name') || 'Unnamed item' ; my $descr = $cgi->param('descr') || 'No description'; return ($name, $descr); UPDATE article SET name=?,descr=?,price=CGI::price WHERE id=CGI::id;