[Perl] Operatori di Confronto

[Gear2ndsx]

Buon giorno a tutti

use strict;
use warnings;
$voto = 10
my $mesg = ($voto == 10) ? 'Dieci e lode!'
: ($voto == 9) ? 'Benissimo'
: ($voto == 2) ? 'Non ci siamo proprio' ;

print $mesg ;

Come mai non funziona ?