my $an = Duck->new;
   $an->speak;