D:\Work\PerlScripts\utl>perl -d:ptkdb repath.pl
No DB::DB routine defined at d:/perl58m/lib/Devel/ptkdb.pm line 98.
BEGIN failed--compilation aborted at d:/perl58m/lib/Devel/ptkdb.pm line 98.
Compilation failed in require.
BEGIN failed--compilation aborted.

##</code><code>##

 use vars qw($VERSION @dbline %dbline);