package MyCar;
use base 'Class::SingletonProxy';

sub SINGLETON { Car->new('Ferrary', 'F40', 'red') }