mysql db handle from command line params

create-mysql-connection.pl

#!/usr/bin/perl -w

use strict;
use warnings;
use Getopt::Long;
use DBI;

my $database = '';
my $password = '';
my $user     = '';
my $host     = '';
my $port     = 3306;

GetOptions(
	'database=s' => \$database,
	'user=s'     => \$user,
	'password=s' => \$password,
	'host=s'     => \$host,
	'port=i'     => \$port,
);

if ( $database eq "" ) {
	die "Enter the database name using --database <database>\n";
}
if ( $user eq "" ) {
	die "Enter username using --user <user>\n";
}
if ( $password eq "" ) {
	die "Enter password using --password <password>\n";
}
if ( $host eq "" ) {
	die "Enter hostname using --host <hostname>\n";
}

# Create the db handle
my $dsn = "dbi:mysql:database=" . $database . ";host=" . $host . ";port=". $port;
my $dbh = DBI->connect( $dsn, $user, $password ) or die DBI->errstr;