package NetworkClass;

use base qw(Class::DBI);

use DBIx::AnyDBD;
our $dbh;

sub Db_Main {    
    $dbh ||= DBIx::AnyDBD->connect("dbi:Oracle:network", 
        "user", "pass", {}, "NetWorkDBD");
}