sub printGoodBye {
  my $self = shift;
  print "Goodbye ";
  $self->printWorld();
}
sub printWorld{ 
	my $self = shift;
	print "World\n ";
}