eval {
        for (@row[3..8]) {
            $_ = $oradbh->quote($_);
        } 
        my $sql = qq%insert into DATA values 
                   ($rownum, '$owner', $page, SYSDATE, 
                   $row[3],$row[5],$row[6],$row[7], $row[8],'','','','
+','' )%;

        my $insth = $oradbh->prepare($sql);
        $insth->execute;
        $insth->finish;
    };
    $rownum++;
    if ($@) {
       print "$@";
       $oradbh->rollback;
    } else {
       print "row done";
       $oradbh->commit;
    }
[download]