use dog::cocker;

my $sasha=new dog::cocker;