#! /soft/perl5/bin/perl
require DBI;
$dbh = DBI->connect(
"dbi:Oracle:",
"v3fadm",
"v3fadm",
{ RaiseError => 1, AutoCommit => 0 }
);
$dbh->disconnect;

##</code><code>##

#! /soft/perl5/bin/perl
require DBI;
$dbh = DBI->connect(
"dbi:Oracle:",
"v3fadm",
"v3fadm",
{ RaiseError => 1, AutoCommit => 0 }
);
$dbh->disconnect;
sleep 1000;