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

my $myBD2=DB2::new();

@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]
);
my $png=$myBD2->generate(@Werte);

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