package Gvenkat5;
use strict;
use warnings;
use DBI;
require Exporter;

@EXPORT_OK = 'connect';

sub connect {
    my $port = shift || 1000;
    my $dbnam = '';
    return DBI->connect("DBI:mysql:database=$dbnam;
                         host=abc01.xyz.com;
                         port=$port",
                         'gvenkat',
                         'ganesh99')
}