Hi ,

 
       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 doe
+s not let user in : $dbh->errstr \n";


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

you have to use strict; use DBI instead of require and print the error if it does not connect and then the $dbh->disconnect has a return variable a scalar .