#!/usr/bin/perl
use strict;
use warnings 'all';
use Devel::ebug;

my $ebug = Devel::ebug->new;
$ebug->program("devel-ebug-test.pl");
$ebug->load;

until ($ebug->finished)
{
    print "At line ". $ebug->line ."\n";
    print "Code:   ". $ebug->codeline ."\n";
    $ebug->step;
}