use Carp;

one();

sub one { two() }
sub two { three() }
sub three{ confess "It took a while to get here, but I know just how I did!" }

__DATA__
It took a while to get here, but I know just how I did! at script line 7
	main::three() called at script line 6
	main::two() called at script line 5
	main::one() called at script line 3