#!/usr/bin/perl -w
use Tk;
use DBI;
my $dbh = DBI->connect("DBI:mysql:TEST;host=localhost","joe","");
my $Main=MainWindow->new();
$Main->minsize( qw(250 250));
$Main->maxsize( qw(250 250));
$Main->title("Austest");
$Main->configure(-background=> 'blue' );
my $top=$Main->Frame(-background=> 'blue',)->pack(-side=>'top',-fill=>'both' );
$CELLE = $top->Label(-width      =>10, -background =>'white', -text       =>'Überschrift')->pack(-side=>'left' );
$CELLE1 = $top->Label(-width        =>10,-background   =>'white',              -textvariable => \$AUS)->pack(-side=>'left' );
$sth3 = $dbh->prepare("select * from Test);
   $sth3->execute;
my $ref3 = $sth3->fetchrow_hashref();
   $AUS = $ref3->{"Name"};