package Foobar;

sub new {
   return bless {};	
	}
	
sub fooish {
     my ($self, $somevar) = @_;
     if ($somevar) {
          return "Empty nest!"; }
     else {
	     die "I died here!";
     }
}