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