Untitled

	sub new {
		{
			no strict 'refs';
			*{"$class\::run"} = 
			  sub {
				  my $self = shift;
				  print "in " . __PACKAGE__ . "\n";
				  eval qq{ package $class; \$self->SUPER::run() };
				  print "in " . __PACKAGE__ . "\n";
			  };
		  
		}
			bless {}, shift;
	}