The Perl Toolchain Summit needs more sponsors. If your company depends on Perl, please support this very important event.
-- main::(gcd.pl:18)
die sprintf "Need two integer arguments, got %d", scalar(@ARGV) unless 
    @ARGV == 2;
basename is on.
highlight is off.
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);