#!/user/bin/perl -w
use strict;
use DBI;

my $dsn = 'dbi:mysql:genedb';
my $user = 'indapa';
my $password = '*****';

my $dbh = DBI->connect($dsn,$user,$password) or die $DBI:errstr, "\n";