Mine

                print "Dynamic discovery with $nseed seed(s) on ". localtime($misc::now)."\n";
                print "==================================================================================\n";
                print "Device                           Status                                  Todo/Done\n";
                print "----------------------------------------------------------------------------------\n";
                while ($#misc::todo ne "-1"){
                        my $cdpid = shift(@misc::todo);
                        my $name = &misc::Discover($cdpid);
                        push (@misc::donenam, $name) if ($name);
                        push (@misc::donecdp,$cdpid);
                        push (@misc::doneip,$misc::doip{$cdpid});
                        printf ("%4d/%d \n",scalar(@misc::todo),scalar(@misc::donenam) );
                }