Help for this page

Select Code to Download

Select or download this

sub ora_connect {
    my $user = shift;
...
    $dbh->{LongTruncOk} = 1;
    return $dbh;
}