Select Code to Download

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