package demo;

	sub new
	{
		print "called NEW\n";
		my $pkg = shift;
		my $self = {};
		bless($self, $pkg);
		return $self;
	}


	sub DESTROY
	{
		print "DESTROY - called\n";
	}
 sub getVal
  {
	my $self = shift;
	print "val = $self->{VAR}\n";
  }


  sub setVal
  {
	my $self = shift;
     print "set val\n";
	$self->{VAR} = shift;
  }