local $| = 1;
for( 1...1_000_000 )
{
  print "\r$_/1000000";
  my $top = Top->new();
}