package Foo {
	sub new { bless [] };
	
	sub msg {
		my $self = shift;
		printf "On my way to '%s'\n", @_;
	}
	
	sub Berlin {
		my $self = shift;
		$self->msg('Berlin');
		print "I'm in Berlin!\n";
	}
	
	sub Paris {
		my $self = shift;
		$self->msg('Paris');
		print "I'm in Paris!\n";
	}
};

my $obj = Foo->new;
$obj->Berlin();