Perl Perform DB Operations

#!/usr/bin/perl -w package PerformDBOperations; use strict; use English; use Carp; use DBI; my $dbHandle = 0; sub new {     my $class = shift(@ARG);            my $self = {};                                                          $self->{_dbUserName}  = undef;     $self->{_dbPassword}  = undef;     $self->{_dbHandle}    = \$dbHandle;                                         bless ($self,$class);              return $self;                   } sub ConnectTo {         my $self = shift;                                    $self->{_dbUserName} = shift;         $self->{_dbPassword} = shift;         my $password = $self->{_dbPassword};          my $username = $self->{_dbUserName};             ${$self->{_dbHandle}} = DBI->connect( "dbi:Oracle:",                                              "$username",                                              "$password"                                             );         if( !${$self->{_dbHandle}} )         {           die ( "DB connection failed \n".$DBI::errstr);         } } sub DoSQLStatement {         my $self = shift;         my $sql = shift;         my $sth = ${$self->{_dbHandle}}->prepare( $sql );                                 if( !$sth )         {           confess( "DB prepare failed:".${$self->{_dbHandle}}->errstr);         }         $sth->execute();                  return $sth; } 1;