#!/usr/bin/perl -w

use strict;
use DBI;

@ARGV == 1
	or die "syntax: $0 dsn\n";

my ($dsn, $user, $pass, $attr) = split / /, shift, 4;

my $dbh = DBI->connect($dsn, $user, $pass, $attr && eval $attr)
	or die "cannot connect to $dsn: ".DBI->errstr."\n";

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

$dbh->disconnect;