Select Code to Download

package Dreamcar;
...
    return $macchina->{'Modello'}; 
    }
1;

package Scuderia;
use Dreamcar;
...
    return $macchina_>{'Tipo'};
    }
1;

package Da_corsa;
use Scuderia;;
...
    return $macchina->{'Tempo_sul_Giro'};
    
    }

#testing the modules
use strict;
...

print "the Racing car is from ", $da_corsa->modello()," and the type i
+s ",$da_corsa->tipo(),
" and can do 0-60MPH in : ", $da_corsa->tempo_dal_giro(),"\n";