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");
}

##</code><code>##

package NetWorkDBD;

use SQL::Parser;

sub new {
	my ($dsn, $user, $pass, $atts,$pkg) = @_;


#	...

}

sub selectrow {
	my $self = shift;
	my $sql = shift;
	my @params = @_;
# ...
}