use DBI;

$drh = DBI->install_driver('Pg');
$dbh = $drh->connect("dbname=testdb", '', '');
$dbh->{AutoCommit} = 0;

$dbh->do("delete from expression_line where EXPR_ID = 40000");

$dbh->commit();

$cursor = $dbh->prepare("insert into expression_line (EXPR_ID,LINE_NO,LINE_TEXT) values (?,?,?)");

$i = 1;
while ( <> ) {
    chop;

    $cursor->execute(40000,$i,$_);

    if ( $dbh->errstr() ) {
	print "$i: ". $dbh->errstr();
	$dbh->disconnect();
	exit(0);
    }

    $i++;
}

$cursor->finish();

$dbh->commit();
$dbh->disconnect();
exit(0);
