Select Code to Download

while (<>)
{
...
    print $_, "\n";
  }
}