...
use strict;
use warnings;
print "Gimme a number:";
my $one = <>;
chomp $one;
print "Gimme another number:";
my $two = <>;
chomp $two;
my $x;
if($two<$one){
$x = $two;
}
else{
$x = $one;
}
my $GDC = GDC($x);
print $GDC;
<>;
sub GDC{
my ($z) = @_;
my $a = $one%$z;
my $b = $two%$z;
my $c = $a || $b;
if($c == 0){
return $z;
}
return GDC((--$z));
}
And yep i have a desktop PC 