#! /usr/bin/perl
use strict;

package Dog;

sub new {
    my $class = shift;
    my $self = {};
    return bless $self, $class;
}

sub bark { print "Woof!\n"; }

package main;

my $fido  = Dog->new();
my $woofy = Dog->new();

$_->bark for ( $fido, $woofy );