use Net::Ping6;

...

    if($p->ping6($&))