Select Code to Download

$|++;

...
  print+qq'\r$"';
  $. .= chop
}

$|++;

while(!select $',$&,$`,1/200)

while(!select undef,undef,undef,1/200)

  print+qq'\r$"'

  $. .= chop

while(1)
{
...
    select undef,undef,undef,1/200
  }
}