-- main::(gcd.pl:18)
die sprintf "Need two integer arguments, got %d", scalar(@ARGV) unless 
set max string is 0.
set auto eval is on.
Eval result display style is dumper.
$DB::D[0] = 3
$DB::D[1] =
@{[
  '3',
  '5'
  ]}
$DB::D[2] =
@{[
  '3',
  '5'
  ]}
$DB::D[3] = 2
$DB::D[4] =
@{{
  'a' => 1,
  'foo' => 'bar'
}}
$DB::D[5] =
@{{
  'a' => 1,
  'foo' => 'bar'
}}
$DB::D[6] =
@{{
  'a' => 1,
  'foo' => 'bar'
}}
*** Too many arguments for main::gcd near "8)

"
$DB::D[7] = <undef>
*** Too many arguments for main::gcd near "6)

"
$DB::D[7] = <undef>
$DB::D[7] = 0
$DB::D[8] = 7
-> main::(gcd.pl:8)
{ 
x1 main::(gcd.pl:9)
    my ($a, $b) = @_;
-- main::(gcd.pl:11)
    ($a, $b) = ($b, $a) if ($a > $b);
$DB::D[9] = 3
$DB::D[10] = 5
$DB::D[11] =
@{[
  '3',
  '5'
  ]}
trepan.pl: That's all, folks...