my $dbh = DBI->connect ( "dbi:Oracle:host=$ip;sid=$sd;port=1521", $id, $pw, {RaiseError => 1, AutoCommit => 0} );
$dbh->{LongTruncOk} = 1;

my $sqlexe = $dbh->prepare( $sql );
$sqlexe->execute();

$sqlexe->bind_columns ( undef, \$tempdata[0], \$tempdata[1], \$tempdata[2], \$tempdata[3], \$tempdata[4] );
while ( $sqlexe->fetch() ) {
	push @{@data}, [ $tempdata[0], $tempdata[1], $tempdata[2], $tempdata[3], $tempdata[4] ];
}
$sqlexe->finish();
$dbh->disconnect();