$ perl -d 1.debug.11.pl

Loading DB routines from perl5db.pl version 1.55
Editor support available.

Enter h or 'h h' for help, or 'man perldebug' for more help.

Subroutine debug1::getcwd redefined at /usr/share/perl/5.30/Exporter.pm line 66.
 at template_stuff/debug1.pm line 400.
	debug1::BEGIN() called at template_stuff/debug1.pm line 400
	eval {...} called at template_stuff/debug1.pm line 400
	require debug1.pm called at 1.debug.11.pl line 4
	main::BEGIN() called at template_stuff/debug1.pm line 400
	eval {...} called at template_stuff/debug1.pm line 400
main::(1.debug.11.pl:12):	my $ts          = "template_stuff";
  DB<1> n                                                                       
main::(1.debug.11.pl:13):	my $images      = "aimages";
  DB<1> c                                                                       
title is 1.debug.1
path1 is /home/hogan/6.scripts/1.debug.1
abs is /home/hogan/6.scripts/1.debug.1/1.debug.11.pl
debug1::make_initial_captions(template_stuff/debug1.pm:43):
43:	  return "nothing yet";
                                                          
...
  DB<3> p $vars{to_images}                                                      
/home/hogan/6.scripts/1.debug.1/template_stuff/aimages
  DB<4> p $vars{eng_captions}                                                   
/home/hogan/6.scripts/1.debug.1/template_stuff/captions
  DB<5> c                                                                       
return2 is nothing yet
ini path is /home/hogan/Documents/html_template_data/6.values.ini
...[normal execution]
return is 1.debug.13.html
http://www.merrillpjensen.com/perlmonks/1.debug.13.html
Debugged program terminated.  Use q to quit or R to restart,
use o inhibit_exit to avoid stopping after program termination,
h q, h R or h o to get additional info.
  DB<5> q                                                                       
$