package NETWORK::Discovery; use NETWORK::SNMP; use Net::SNMP; use Net::Ping; sub new { ... } sub discover_pvp { ... } sub getnext_device { .... } sub getnext_nonsnmp { ... } 1;