#!/usr/bin/perl
#

use DBI;

my $dbh = DBI->connect("DBI:mysql:livejournal", $u, $p);
print "Dbh: $dbh\n";