DB<3> &DB::break_on_filename_line('/tmp/sub.pl',4)

  DB<4> L
/tmp/sub.pl:
 4:	    print __FILE__,":",__LINE__; 
   break if (1)