Select Code to Download

#!/usr/bin/perl -d
use strict;
...
print "1";
print "2";
print "3";

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