Select Code to Download

#!/usr/bin/perl

...
    $pm->finish(0, { key => $key });
}
$pm->wait_all_children;

[user@localhost ~/bin]$ perl a.pl
peter took the 'C' key
...
luke took the '' key
andrew took the 'C' key
judas took the 'B' key