Select Code to Download

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

This is perl, v5.10.0 built for darwin-thread-multi-2leve

#!/usr/bin/perl

...

print "all is normal but unfortunately i die before i come here\n";
exit(0);