my $sth = $dbh->prepare($cmd);
unless ($sth) {
  die "Zeile: $line" . $dbh->errstr();
}
else {
  # ...
}