#!/usr/bin/perl -w
use strict;
use DBI;
my $database_name = "mydb";
my $user = 'I_am';
my $password = "smart";
my $url="db.strangehost.com";
my $dbh=DBI->connect("dbi:mysql:$database_name;host=$url",
$user,$password, {RaiseError=>1});

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

$dbh->disconnect();

##</code><code>##

 _  _ _  _  
(_|| | |(_|><
 _|