Select Code to Download

my @field = qw(
   Title Email City State Country URL
...
   . join(', ', map "'$_'", @fields)
   . ') VALUES (?,?,?,?,?,?,?,?,NULL, NOW(), 0)'
);

use CGI qw(:standard);

...
die unless is_valid_email($field{Email});

$insert_sth->execute(values %field);