package Da_corsa;
use Scuderia;;
@ISA= "Scuderia"; # we say that ISA e' macchina da corsa nella scuderia famosa
#declaring a class of racing car
sub class{
    my($class)=@;
    my $macchina ={}; #empty anonomous  hash
    bless $macchina, $class;
    return $macchina;
    
  }

sub tempo_sul_giro {
    my ($macchina, $tempo)=@_;
    $tempo && ($macchina->{'Tempo_sul_Giro'}=$tempo);
    return $macchina->{'Tempo_sul_Giro'};
    
    }