package Dreamcar;
sub modello{
    my ($macchina, $modello) = @_;
    $modello && ($macchina->{'Modello'}=$modello);  
    return $macchina->{'Modello'}; 
    }
1;