while( $self ){
  make( $world , 'better' );
  sleep 32400;
}
sub make { $_[0] .= ' '. $_[1]; }