$dbh = DBI->connect("dbi:Oracle:", "user", 'sesam');

unless ( $dbh ) {
#        Hier Code falls connect mißlungen
        }

$csr0 = $dbh->prepare($Name_1._SQL_Statement);
$csr0->execute;

usw.