#!perl

$man = Man->new (from => 'Nantucket');
length($man->{dick}) and $man->suck($_);
  $man->say( do { $man->grin();
  $man->wipe($man->{chin});
if (UNIVERSAL::isa($man->{ear}, 'cunt')) { $man->fuck($_) } } );

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

__END__