Select Code to Download

$a = tell(DATA);
seek(DATA,$a,0);
...
Foo
Bar
Quux

while(<DATA>){
  print "DATA: $_";
...
Foo
Bar
Quux