use warnings;
use strict;

one();

exit(0);

sub one {
	my $str = 'hello, world!';
	two($str);
}
sub two {
	my $str = shift;
	$str =~ s/hello/goodbye/;
	three($str);
}
sub three {
	my $str = shift;
	print "$str\n";
}