use strict;

sub print_l_old {
  return qq|the world is a great place|;
}
sub print_l{
    print print_l_old() . qq| to be.|;   
}
print_l();