I was able to complete a script that pings several hosts in multiple subnets using the Net::Ping module. Hopefully this helps.

/dev/null