Perl job queue