sub fireSelect {
    my( $dbh, $sql, @params ) = @_;

    my $sth = $dbh->prepare( $sql )
        or .... Fehlerabfrage;
    $sth->execute( @params )
        or ... Fehlerabfrage

  return $sth;
}