Select Code to Download

my $num1 = 150;
my $num2 = 1000;

...
    print "Largest common divisor is $divisor\n";
  last;
}

print euclid(15000,1260);

...
   my( $a, $b ) = @_;
 return ($b) ? euclid( $b, $a % $b ) : $a;
}