$|++; re(); sub re
{
  print '.';
  select undef,undef,undef,0.01;

  goto &re;
}

##</code><code>##

use 5.016;
$|++; re(); sub re
{
  print '.';
  select undef,undef,undef,0.01;

  goto __SUB__;
}