Select Code to Download

$|++; while () 
{
  print '.';
  select undef,undef,undef,0.01;
}

$|++; re(); sub re
{
...

  re()
}