my $sth = $dbh->prepare($sql);


##</code><code>##

    my $sth = $dbh->prepare($sql)
        or die "No sth: '$DBI::ErrStr'", $!;