Select Code to Download

my $done = 0;
...
while (not $done and $output = <STDIN>) {
  print $output; # don't need newline as it's there already
}