#! perl -d:ptkdb