[Perl] Elevamento a potenza senza ricorrere all’operatore predefinito

Descrizione
Il codice sottostante esegue l’elevamento a potenza (a scelta dell’utente) di un numero (sempre a scelta dell’utente) senza ricorrere all’operatore predefinito di elevamento a potenza del Perl (**).

Codice
print “Inserisci un numero\n”;
chomp($a=);
print “\nA che potenza lo vuoi elevare?\n”;
chomp($b=);
if($b==1){
print “\n$a\n”;
}
elsif($b==0){
print “\n1\n”;
}
else{
$e=$a;
for($c=1;$c<$b;$c++){ $f=$e*$a; $e=$f; } } print “\n$f\n”; system(”PAUSE”);