die "Shutting down pool while there are still jobs to be done" 
if $belt->onbelt;