package baozi;

sub new{
	my $class = shift;
	my $self = bless {}, $class;
}

sub fun1{
	my $self = shift;
	print "fun1......baozi \n"
}


1