/usr/bin/perl -w /home/lanx/perl/ruby/yield.pl 
You are in the method
You are in the block 1
You are again back to the method
You are in the block 2