or download this
my $name = 'Smith';
my $st = $db->prepare( qq| SELECT * FROM mytable WHERE customer = '$na
+me'; | );
...
my $name = 'Smith';
my $st = $db->prepare( q| SELECT * FROM mytable WHERE customer = ?; |
+);
$st->execute($name) or die $DBI::errstr;