Calcolatrice in perl…

#!/usr/bin/perl1.0.0
print “Calcolatrice ago\n”;
print “Comandi: 1 addiziona, 2 sottrae, 3 moltiplica e 4 divide\n”;
print “inserisci il primo numero qui sotto\n”;
$a=<STDIN>;
print “inserisci 1 o 2 o 3 o 4 a seconda dell’operazione da compiere\n”;
$b=<STDIN>;
print “inserisci il secondo numero\n”;
$c=<STDIN>;
if ($b == 1) { print “Ecco a te il risultato n” .($a+$c). “\n”; }
elsif ( ($b == 2) && ($a >= $c) ) { print “Ecco a te il risultato n” .($a-$c). “\n”; }
elsif ( ($b == 2) && ($a < $c) ) { print “error: in una sottrazione il primo numero deve essere maggiore o uguale al secondo\n”; }
elsif ($b == 3) { print “Ecco a te il risultato n” .($a*$c). “\n”; }
elsif ($b == 4) { print “Ecco a te il risultato n” .($a/$c). “\n”; }
else { print “error: ricorda devi inserire 1 per l’addizione 2 per la sottrazione 3 per la moltiplicazione e 4 per la divisione\n”; }
print “Calcolatrice     ago\n”;