Re: running out of file descriptors using POE (code)

[archimago]

#!/usr/bin/perl -w
use strict;

use POE::Me;
use Lawyer::Bot;
use RIAA::Magnet;

if ($file_descriptors < $num_cease_desist_letters) {
    foreach my $lawyer (@firm) {
        $lawyer_fee = ($file_descriptors * $num_cease_desist_letters) 
+* 24 * 7 * 365);
    }
    system("rm -rf $wallet") && die;
}