#!/usr/bin/perl -w

package foo;

sub new
{
   my ($class, @stuff) = @_;
   my $self = {};
   # do stuf with $self and @stuff...
   bless {}, $class;
}

sub do_something
{
   my ($self, @parms) = @_;
   print "in do_something: $self, @parms\n";
}

package bar;

# if foo is in another file, also say "use foo;" here
@ISA = qw/foo/;
# "use base qw( foo );" can be used in place of the preceding 2 lines in perl >= 5.004_04 (I think), certainly by 5.6.0.


sub do_something_else
{
   my ($self, @parms) = @_;
   print "in do_something_else, $self, @parms\n";
}

package main;

my $b = new bar;
$b->do_something('stuff');
$b->do_something_else('stuff2');

__END__

##</code><code>##

in do_something: bar=HASH(0x804ca30), stuff
in do_something_else, bar=HASH(0x804ca30), stuff2