use strict;
use DBI;


my $dbh = DBI->connect('DBI:mysql:ligas','perlclient','todito')
    or die "Couldn't open database: $DBI::errstr; stopped";