sub one {
 my $x = "we are in one()\n";
 print $x;
 two();
 print $x;
}

sub two {
 my $x = "we are in two()\n";
 print $x;
}

one();