#!/usr/bin/perl

use strict;
use DBI;
use XML::XPath;
use XML::XPath::XMLParser;

my $username = "user";
my $password = "userabc";
my $dsn = "dbi:mysql:books:127.0.0.1";
my $dbh = DBI->connect($dsn,$username,$password) or die "cannot
connect to database : $DBI::errstr";

my $xp = XML::XPath->new(filename=>'test.xml');

my $sth = $dbh->prepare(qq{INSERT INTO tutpoint_tbl VALUES(?,?,?)});

foreach my $row($xp->findnodes('/main/MAIN')){

        my $tut_id = $row->find('tut_id')->int;
        my $tut_title=$row->find('tut_title')->string_value;
        my $tut_author=$row->find('tut_author')->string_value;

        $sth->execute($tut_id,$tut_title,$tut_author) || die $DBI::errstr;

}

$dbh->disconnect;