#!/usr/bin/perl
use strict;

package Boz;

sub run {
	my ($self,$code) = @_;
	
	$code->('Boz');
}

sub speak {
	my ($self,$str) = @_;
	print "Boz: $str";
}

sub type {	$_[0]; }

print type Boz;