#!/usr/bin/perl -w
use strict;
use DBI;
my $port=3309;
my $host = '127.0.0.1';
my $db = 'udb';
my $username = 'usr';
my $password = 'passwd';
my $dsn = "DBI:mysql:database=$db;host=$host;port=$port";
my $dbh = DBI->connect("$dsn", 
                       "$username",
                       "$password")  
                       or die "Couldn't connect to database: ".DBI->errstr;