#!/usr/bin/perl
use DBI;
use DBD::Oracle;
my $dbh=DBI->connect("dbi:Oracle:XE","suhail","suhail",<br>{AutoCommit=>0,RaiseError=>1})||die "Can't connect $DBI::errstr";
$sql='insert into u_configname values (?,?,?,?,?,?,?,?,?,?,?)';
open(MY,"Desktop/b1.txt");
while(<MY>)
{
my($a,$b,$c,$d,$e,$f,$g,$h,$i,$j,$k)=split /,/;
eval    {
my $sth=$dbh->prepare($sql);
$sth->execute($a,$b,$c,$d,$e,$f,$g,$h,$i,$j,$k)||die "$!";
$dbh->commit;
        };
if ($@) {
        $dbh->rollback;
        }
}
close(MY);
END
{
$dbh->disconnect if defined $dbh;
}