my $dsn = 'DBI:mysql:ciprestest:localhost';
    my $dbuser = 'cipresquery';
    my $dbpass = 'iamstupid';
    my $dbh = DBI->connect($dsn, $dbuser, $dbpass)
        or die "Couldn't connect to database: " . DBI->errstr;