#!C:\Perl\bin\perl.exe /* Percorso nel quale ho installato il mio interprete Perl */
$numero1=50; /* Diachiaro la variabile "numero1" a cui associo il valore 50 */
$numero2=10; /* Diachiaro la variabile "numero2" a cui associo il valore 10 */
/* Dichiaro le variabili con le relative Operazioni */
$addizione=$numero1+$numero2;
$sottrazione=$numero1-$numero2;
$moltplicazione=$numero1*$numero2;
$divisione=$numero1/$numero2;
$resto=$numero1%$numero2;
$potenzaprimonum=$numero1**2;
$potnumeri=$numero1**$numero2;
/* Visualizzo a Schermo i risultati Ottenuti */
print"\Numero1 vale $numero1\n";
print"\Numero2 vale $numero2\n\n";
print"------------------------------------------------------------\n";
print"La Somma tra $numero1 e $numero2 Corrisponde a $addizione\n";
print"La Sottrazione tra $numero1 - $numero2 Corrisponde a $sottrazione\n";
print"Il Prodotto tra $numero1 e $numero2 Corrisponde a $moltiplicazione\n";
print"La Divisione tra $numero1 e $numero2 Corrisponde a $divisione\n";
print"Il Resto della Divisione tra $numero1 e $numero2 Corrisponde a $resto\n";
print"Il Valore di $numero1 Elevato al Quadrato Corrisponde a $potenzaprimonum\n";
print"Il valore di $numero1 elevato alla Potenza di $numero2 Corrisponde a $potnumeri\n";
print"------------------------------------------------------------\n\n";
print"FINE";