debugging perl with hdb