main::(./perl.sh:5):	print "1";
  DB<1> v
2:	use strict;
3:	use warnings;
4 	
5==>	print "1";
6:	print "2";
7:	print "3";
  DB<1> s
main::(./perl.sh:6):	print "2";
  DB<1> 1v
3:	use warnings;
4 	
5:	print "1";
6==>	print "2";
7:	print "3";