//usr/share/doc/perl-DBD-MySQL-4.023/eg/bug30033pg.pl