#!/usr/bin/perl -w
# second script

sub input {
  print "Primo numero: ";
  chomp($numero = <STDIN>);
  print "Secondo numero: ";
  chomp($n2 = <STDIN>);
}

print "Calcolatrice:
1 - Addizione
2 - Sottrazione
3 - Moltiplicazione
4 - Divisione
5 - Esci\n\n";

chomp($scelta = <STDIN>);

SWITCH :
{
    if($scelta == 1)
    {
      input();
      $risultato = $numero + $n2;
      last SWITCH;
    }

    if($scelta == 2)
    {
      input();
      $risultato = $numero - $n2;
      last SWITCH;
    }	

  if($scelta == 3)
    {
      input();
      $risultato = $numero * $n2;
      last SWITCH;
    }

  if($scelta == 4)
    {
      input();
      $risultato = $numero / $n2;
      last SWITCH;
    }

  if($scelta == 5)
    {
      print "exit\n";
      exit;
    }
}

($risultato) ?  print "Il risultato è: $risultato\n" :  print "exit\n";