#!c:/Perl/bin/perl.exe
use BD2;
use DBI;


@Werte = (
["1st","2nd","3rd","4th","5th","6th","7th", "8th", "9th"],
[ 1, 2, 5, 6, 3, 1.5, 1, 3, 4],
[ 10, 12, 5, 9, 1, 2, 1, 7, 8]
);


BD2::uegabe(@Werte);


print "Content-type: image/png\n\n";
binmode STDOUT;
print $BD2::BalkenD;