1 2 3 4 5 6 7 8 9
package Net::Ping; sub new { my ($_class, @_l) = @_; } sub ping { my ($_class, $_host, $_o_timeout) = @_; }