Select Code to Download

line 1
line 2
...
line 4
line 5
line 99

#!/usr/bin/perl

...
  # do something 
  print "line number $.\n";
}

line number 1
line number 2
...
line number 4
line number 5
line number 6