#!/usr/bin/perl -w

#Define the behaviour of DBI->connect for the entire script
$ENV{DBI_DSN} ||= 'DBI:CSV(RaiseError=>1,AutoCommit=>1):'. join ';',
                  "csv_eol=\n",
                  'csv_sep_char=|',
                  'csv_quote_char=',
                  'csv_escape_char=';
     
use strict;
use DBI; 
use CGI;
  
my $statement = q{
  UPDATE list
     SET title = ?
       , description = ?
   WHERE id = ?
};
  
my $cgi = CGI->new;
  
#Connect to the data source
my $dbh  = DBI->connect;

$dbh->do(
  $statement, 
  {},
  $cgi->param('title'), 
  $cgi->param('description'),
  $cgi->param('id'),
);

$dbh->disconnect; 

print $cgi->header, 'Updated List';

__END__