my current perl
#!C:\perl\bin\perl
use warnings;
use strict;
use DBI;

my $hostname = 'mysql.208.233.55.555:3306';
my $database = 'actaulDBNotGiven';
my $user     = 'ActualNameNotGiven';
my $password = '';
my $driver   = 'mysql';
my $dsn      = "DBI:$driver:database=$database;host=$hostname";
my $dbh = DBI->connect($dsn, $user, $password) or die "Can't connect\n $!\n";

print "$_\n" for $dbh->tables;
$dbh->disconnect();

exit;