#testing the modules
use strict;
use warnings;
use Data::Dump qw(dump);

use Da_corsa;

#inheritance adesso
my $da_corsa = Da_corsa->class();
$da_corsa-> modello('Ferrari');
$da_corsa-> tipo('LaFerrari');
$da_corsa -> tempo_sul_giro('2.8 secondi');

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