#!/usr/bin/perl -w 
use strict;

my $s = new speak();

foreach my $critter(qw/ cat dog spider /){
        $s->$critter();
}

exit(0);

package speak;

sub new { 
        bless {},"speak";
}

sub cat { 
        print "meow!\n";
}

sub dog { 
        print "woof!\n";
}

sub spider {
        print "arf!\n";
}

1;