Editing File: /usr/share/doc/perl-DBD-MySQL-4.023/eg/issue21946.pl