#!/usr/bin/perl 

# Einbinden der Module 
#use strict;
use CGI qw/:standard :html3/;
use CGI::Carp qw/fatalsToBrowser/;
use DBI;


my $db=DBI->connect('dbi:mysql:dbxxxxxxxx;dbxxx.puretec.de','dboxxxxxxxx','xxxxxxxx');


### Get a list of tables and views
my @tables = $db->tables();

my $http=new CGI;
print $http->header();

$i=0;

for (@tables) {
print <<End_Of_Step0;

$tables[$i]<br>



End_Of_Step0
$i++;
}


# Datenbank-Verbindung beenden
$db->disconnect();

# HTML-Dokument beenden
print $http->end_html();