Help for this page
local $SIG{__DIE__} = sub { my ($d) = ( $_[0] =~ /line (\d+)\.$/ ); ... last if $. > ($d+$context); #move on once we've finished context } };