Help for this page
#!/usr/local/bin/perl # Set constants ... $dbh->disconnect;
my $dbh = DBI->connect( "dbi:Oracle:host=localhost;sid=nms", 'user', ' +password');