package Foo;
use warnings;
use strict;
sub new {
	my ($class, $bar) = @_;
	my $self = { bar => $bar };
	return bless $self, $class;
}
sub foo {
	my $self = shift;
	print "Bar=", $self->{bar}, "\n";
}
1;