my $count = 100;
sleep 1 while --$count;