#!/usr/bin/perl -w 

use strict;

package Foo;

sub new {
	bless({}, $_[0]);
}

sub do_it {
	print "Doing something for $_[0]!\n";
}

package main;

my $foo = new Foo;