use LWP::UserAgent;
use DBI;
use Data::Dumper;

use strict;
use warnings;

my $db = DBI->connect('DBI:mysql:test', 'root', '', {RaiseError => 1});
my $ini = $db->prepare('update books set out = 0');
my $ins = $db->prepare('insert into books(name, person, duedate,barcode) values(?,?,?, ?)');
my $upd = $db->prepare('update books set duedate = ?, out = 1 where barcode = ?');
my $any = $db->prepare('select count(*) from books where barcode = ?');