#!/usr/bin/perl -w
use strict;
use DBI;
my $host = 'localhost:3309';
my $db = 'fdb';
my $db_user = 'first';
my $db_password = 'firstpasswd';
my $dbh = DBI->connect("dbi:mysql:$db:$host",
                       "$db_user",
                       "$db_password") 
                       or die "Couldn't connect to database: ".DBI->errstr;


##</code><code>##

/path/to/user/mysql/bin/mysql -u first -p