#/!usr/bin/perl
use warnings;
print "Coverter 1.1 by Emdel\n";
print "Convertitore tra sistemi diversi\n";
print "\tMenu\n\n";
print "1. Esadecimale\n";
print "2. Ottale\n";
print "3. Binario\n";
$scelta = <STDIN>;
if ( $scelta == 1)
{
  print "Inserisci il numero in esadecimale da trasformare in decimale\n";
  $numero = <STDIN>;
  chomp ($numero);
  print hex("$numero") , "\n";
}
elsif ( $scelta == 2)
{
  print "Inserisci il numero in ottale da trasformare in decimale\n";
  $numero = <STDIN>;
  chomp ($numero);
  print oct("$numero") , "\n";
}
elsif ( $scelta == 3)
{
  print "Inserisci il numero in binario da trasformare in decimale\n";
  $numero = <STDIN>;
  chomp ($numero);
  print oct("0b$numero") , "\n";
} else {
        print "Scelta non consentita!\n";
        }