Una mica de música

use strict;

#definicio variables

my $b;
my $a;
my $diva=1;
my $divb=1;
my $divs=0;
my $z;


#modul de musica (necesitareu un arxiu de musica .wav)
#podeu trobar el wav del programa a l'arxiu que adjunto

print "Vols escoltar musica mentre executes el programa?(S/N)";
$z=;
chop($z);
if($z == "s" || $z == "S"){system("(play -q cher_wm_08_1.wav) &");}

#programa

print "Introdueix el primer nombre:";
$a = ;
chop($a);


print "Introdueix el segon nombre:";
$b = ;
chop($b);



if($a==int($a) && $a>=0 && $b==int($b) && $b>=0){
while($diva<=$a || $divb<=$b){
if($b % $divb == 0 && $a % $diva == 0){
$divs++;
}
$diva++;
$divb++;
}
if($divs == 1)
{print "El $a i el $b son nombres relativament primers, nomes tenen un divisor comú\n";}
else{print "El $a i el $b NO son nombres relativament primers, tenen $divs divisors\n";}
}
else
{
print "Els nombres introduits no son valids\n";
}
#neteja la pantalla
system("^C");



LINK:
http://www.megaupload.com/?d=0XMA1E9G