You are (almost certainly) running out of stack. See threads   use threads ( 'stack_size' => 64*4096 };

Beyond that, using 500 threads where each does so little work every 60 seconds is a very memory intensive way to do things. Consider using the asynchronous 'syn' protocol of Net::Ping to efficiently ping your 500 hosts with minimal memory usage.