print q
{
=======================================================================================

                      -= Calcolatrice realizzata da Emdel =-
                               * Perl calculator *
-= Un ringraziamento a tutti coloro che mi hanno dato una mano nello studio del Perl =-   
=======================================================================================
};
print q
{
________________________________________________________________________________________
1 pannello con le operazioni avanzate
2 pannello con le operazioni basilari
________________________________________________________________________________________
};
$scelta = <STDIN>;
if ($scelta == 1)
{
    print "scegli una delle operazioni avanzate presenti nel pannello\n\r";
    print q
        {
=======================================================================================
Pannello di controllo per operazioni avanzate :
1 coseno
2 seno
3 logaritmo naturale
4 radice quadrata
--+--+--+--+--+--+--+--+--+--+--+--+--+--+--+--+--+--+--+--+--+--+--+--+--+--+--+--+--+--
Perl calculator version 1.0 powered by Emdel
=========================================================================================
        };
    $operazione = <STDIN>;
    chomp ($operazione);
        if ($operazione == 1)
                    {    
                    print "inserisci un numero\n\r";
                    $n1 = <STDIN>;
                    chomp ($n1);
                    $ris = cos($n1);
                    print "Il coseno di $n1 è $ris\n\r";
                    }
        if ($operazione == 2)
                    {
                    print "inserisci un numero\n\r";
                    $n1 = <STDIN>;
                    chomp ($n1);
                    $ris = sin($n1);
                    print "Il seno di $n1 è $ris\n\r";
                    }
        if ($operazione == 3)
                    {
                    print "inserisci un numero\n\r";
                    $n1 = <STDIN>;
                    chomp ($n1);
                    $ris = log($n1);
                    print "Il logaritmo naturale di $n1 è $ris\n\r";
                    }
        if ($operazione == 4)
                    {
                    print "inserisci un numero\n\r";
                    $n1 = <STDIN>;
                    chomp ($n1);
                    $ris = sqrt($n1);
                    print "La radice quadrata di $n1 è $ris\n\r";
                    }
}
if ($scelta == 2)
{
    print "scegli una delle operazioni basilari presenti nel pannello\n\r";
    print q
        {
=======================================================================================
Pannello di controllo per operazioni basilari :
1 addizione
2 sottrazione
3 moltiplicazione
4 divisione
=========================================================================================
        };
    $operazione=<STDIN>;
    print "scegli il primo numero\n\r";
    $n1 = <STDIN>;
    print "scegli il secondo numero\n\r";
    $n2 = <STDIN>;
        if ($operazione == 1)
                    {
                             $ris = $n1 + $n2;
                              print "il risultato e' $ris\n\r";
                    }
        if ($operazione == 2)
                    {
                              $ris = $n1 - $n2;
                              print "il risultato e' $ris\n\r";
                    }            
        if ($operazione == 3)
                    {
                              $ris = $n1 * $n2;
                              print "il risultato e' $ris\n\r";
                    }
        if ($operazione == 4)
                    {
                              while ($n2 == 0 )
                            {
                            print "Impossibile dividere per zero, non lo sai?\n\r";
                                      $n2 = <STDIN>;
                            }
                              $ris = $n1 / $n2;
                              print "il risultato e' $ris\n\r";
                    }
}
else
{
print "Operazione non consentita\n\r";
}