Select Code to Download

#!/usr/bin/perl

use strict;
...
        redo;
    }} 
}

sub p_idiomatic
{
    # Use a numeric sort to enforce that m is greater then n
...

    return $m;
}

sub gcd {
  my ($n, $m) = @_;
  while ($m) {
...
  }
  return $n;
}