### Datenbankverbindung herstellen ###
my $db          = DBI->connect($data_source, $user, $password) || die "Database connection not made: $DBI::errstr\n";

### Teststatement ###
my $s_select_si = "select screenitemid, x, y from screens_items where screenid = '$sID'";
my $sth         = $db->prepare($s_select_si) || die "$s_select_si: $db->errstr kann nicht vorbereitet werden!\n";
my $rc          = $sth->execute || die "Die Query: $sth->errstr kann nicht ausgefuehrt werden!\n";
if ($rc < 1) {
        print "Es ist ein Fehler beim Ausfuehren des Select Statements $s_select_si aufgetreten: ".$db->errstr."\n";
}
my @erg         = ();
my %order       = ();
my @achsen      = ();
my $screenid    = "";
my @yx          = ();

while( @erg = $sth->fetchrow_array)
{
        @achsen = ("$erg[1]", "$erg[2]");
        %order{"$erg[0]"} =  \@achsen;
}
$sth->finish();