#!/usr/bin/perl
    
    use strict;
    use warnings;
    use Devel::ebug;
    use Data::Dumper;
    
    my $ebug = Devel::ebug->new;
    # $ebug->program(shift); # OLD VALUE:
    $ebug->program($ARGV[0]); # NEW VALUE:

    $ebug->load;
    
    until ($ebug->finished) {
    	print "+++ file:", $ebug->filename, " line: ", $ebug->line, "\n";
    	my $pad = $ebug->pad;
    	for my $var (sort keys %$pad) {
    		if (ref $pad->{$var}) {
    			for my $line (split /\n/, Data::Dumper->Dump([$pad->{$var}], [$var])) {
    				print "++  $line\n";
    			}
    		} else {
    			print "++  $var = $pad->{$var}\n";
    		}
    	}
    	for my $line ($ebug->codelines($ebug->line-3 .. $ebug->line-1)) {
    		next unless defined $line;
    		print "+   $line\n";
    	}
    	print "+>  ", $ebug->codeline, "\n";
    	for my $line ($ebug->codelines($ebug->line+1 .. $ebug->line+3)) {
    		next unless defined $line;
    		print "+   $line\n";
    	}
    	$ebug->step;
    }

##</code><code>##

    > ./stacktrace.pl debugme.pl 
    ./stacktrace.pl: exec failed: No such file or directory
     at /home/wakatana/perl5/lib/perl5/Devel/ebug.pm line 41
    Could not connect: Connection refused at /home/wakatana/perl5/lib/perl5/Devel/ebug.pm line 71.

##</code><code>##

Proc::Background::Unix::_new(/home/wakatana/perl5/lib/perl5/Proc/Background/Unix.pm:21):
21:	  my $class = shift;
  DB<4> c
stacktrace.pl: exec failed: No such file or directory
 at /home/wakatana/perl5/lib/perl5/Devel/ebug.pm line 41
 at /home/wakatana/perl5/lib/perl5/Proc/Background/Unix.pm line 54
	Proc::Background::Unix::_new('Proc::Background', '/tmp/ebug_backend_perl /tmp/debugme.pl') called at /home/wakatana/perl5/lib/perl5/Proc/Background.pm line 123
	Proc::Background::new('Proc::Background', 'HASH(0x1731f40)', '/tmp/ebug_backend_perl /tmp/debugme.pl') called at /home/wakatana/perl5/lib/perl5/Devel/ebug.pm line 41
	Devel::ebug::load('Devel::ebug=HASH(0xbebf10)') called at stacktrace.pl line 12
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.  
Usage: x-terminal-emulator [options]

x-terminal-emulator: error: no such option: -c
######### Forked, but do not know how to create a new TTY. #########
  Since two debuggers fight for the same TTY, input is severely entangled.

  I know how to switch the output to a different window in xterms, OS/2
  consoles, and Mac OS X Terminal.app only.  For a manual switch, put the name
  of the created TTY in $DB::fork_TTY, or define a function
  DB::get_fork_TTY() returning this.

  On UNIX-like systems one can get the name of a TTY for the given window
  by typing tty, and disconnect the shell from TTY by sleep 1000000.

  DB<4> Could not connect: Connection refused at /home/wakatana/perl5/lib/perl5/Devel/ebug.pm line 71.
 at /home/wakatana/perl5/lib/perl5/Devel/ebug.pm line 71
	Devel::ebug::attach('Devel::ebug=HASH(0xbebf10)', 3279, 'bobedu') called at /home/wakatana/perl5/lib/perl5/Devel/ebug.pm line 49
	Devel::ebug::load('Devel::ebug=HASH(0xbebf10)') called at stacktrace.pl line 12
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.  

##</code><code>##

    b Proc::Background::Unix::_new
    c