my $sql = "INSERT INTO t1 (lsname) VALUES ( ? )";
my $sth;
eval {
    $sth = $dbh->prepare( $sql );
    $sth->execute ($lsname);
};

if ($@) {
     print "There was an error ($DBI::errstr)\n";
     # do something appropriate
}