example.pl

#!/usr/bin/perl -w


    $dbh =
        DBI->connect( "DBI:mysql:dbname=mydb;", "root", "mypass",
        { RaiseError => 0, PrintError => 0, AutoCommit => 1 } );
    $dbh->{'mysql_auto_reconnect'} = 1;
    $stu1 = $dbh->prepare("update smt set value=?");
    $sti1 = $dbh->prepare("insert int bbb values (?,?)");


   $koeff=1;
   $stu1->execute( $koeff );


   for($i=1;$i<100;$i++){
       $sti1->execute( $i,$i+1 );
   }

   $stu1->finish;
   $sti1->finish;