Select Code to Download

my $conn = DBI->connect("dbi...);

...
 my $conn = shift;
 ...
}

use somepackage;

...

__END__

sub connectdb {
    my $user       = 'user';
...
    return (DBI->connect("dbi:Oracle:host=$host;sid=$sid", $user, $pas
+sword,
        {PrintError => 1, RaiseError => 1, AutoCommit => 0}));
}