package Car;
our @ISA = qw(Vehicle);
# nothing related to Class::SingletonProxy goes here!

sub wheels { 4 }

##</code><code>##

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

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


##</code><code>##

MyCar->go_supermarket(speed => 200);