package Scuderia;
use Dreamcar;
@ISA = qw[Dreamcar];

sub tipo{
    my ($macchina, $tipo)=@_;
    if ($tipo){$macchina->{'Tipo'}=$tipo}; 
    return $macchina_>{'Tipo'};
    }
1;