-- main::(gcd.pl:18)
die sprintf "Need two integer arguments, got %d", scalar(@ARGV) unless 
basename is on.
output set to not use terminal escape sequences
Watch expression 1: $a set
$DB::D[0] = <undef>
Watchpoint 1: $a changed
------------------------
old value	<undef>
new value	3
wa main::(gcd.pl:21)
printf "The GCD of %d and %d is %d\n", $a, $b, gcd($a, $b);
Watchpoint 1: $a changed
------------------------
old value	3
new value	2
wa main::(gcd.pl:11)
    ($a, $b) = ($b, $a) if ($a > $b);
Watchpoint 1: $a changed
------------------------
old value	2
new value	1
wa main::(gcd.pl:11)
    ($a, $b) = ($b, $a) if ($a > $b);
trepan.pl: That's all, folks...