#!/usr/bin/perl

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

my $username = "user";
my $password = "userabca";
my $dsn = "dbi:mysql:books:127.0.0.1";
my $dbh = DBI->connect($dsn,$username,$password,{RaiseError =>
1,PrintError => 0}) 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'('tut_id','tut_title','tut_author') VALUES(?,?,?)});

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

        print "node matched";

        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;