my $dbh = DBI->connect( "dbi:Sybase:server=$dbServer;hostname=$hostname; database=$ +database",$dbUser, $dbPasswd->[1],{AutoCommit => 1}); 
my $insertStatement = $dbh->prepare("INSERT INTO BatchFile (FileName,FileStatusCode,FileDate,FileFormatCode,TotalRecords,LoadStartTime,Modi +fiedDate,ModifiedBy) VALUES ('Akash',4,GetDate(),0,3,GetDate(),GetDat +e(),'FIX2MQ')") or $DBI::err and die($DBI::errstr); 
my $updateStatement = $dbh->prepare("UPDATE BatchFile SET FileStatusC +ode = ? ,ModifiedDate = GETDATE(),TotalRecords = ? WHERE BatchFileID += ?"); 

for(my $x=0;$x < 5;$x++){ 
$insertStatement->execute() or die($DBI::errstr); my $id = $dbh->last_insert_id(undef,undef,undef,undef) or die "no inse +rt id $DBI::errstr $!"; print "ID : ",$id; update1($id); } 

sub update1{ 
my $id = shift; $updateStatement->execute(6,1,$id) or die($DBI::errstr); } 

$insertStatement->finish(); $updateStatement->finish(); my $rc = $dbh->disconnect or die($DBI::errstr);