#!perl

$man = Man->new (from => 'Pawtucket');
length($man->{pick}) and $man->pluck($_);
  $man->say( do { $man->grin();
  $man->wipe($man->{violin});
if (UNIVERSAL::isa($man->{ear}, 'legato')) { $man->chuck($_) } } );

package Man;
sub new { 'Man' }
sub AUTOLOAD { }

__END__