use strict;
       use DBI;
       my $dbh = DBI->connect(
                               "dbi:Oracle:<B> The Schema Name</B>",
                               "v3fadm",
                               "v3fadm",
                               { 
                                RaiseError => 1, 
                                AutoCommit => 0 
                               }
                              ) || die "the parameters for connect does not let user in : $dbh->errstr \n";


     <B> my $disconnect = $dbh->disconnect();</B>