Select Code to Download

use LWP::UserAgent;
use DBI;
...
my $ins = $db->prepare('insert into books(name, person, duedate,barcod
+e) values(?,?,?, ?)');
my $upd = $db->prepare('update books set duedate = ?, out = 1 where ba
+rcode = ?');
my $any = $db->prepare('select count(*) from books where barcode = ?')
+;

DBI connect('test','root',...) failed: Can't connect to MySQL server o
+n 'localho
st' (10061) at a.pl line 8