In what way is this code not working for you? Be as detailed as possible. Use print as a debug tool to show the value of variables at different points in your code. See also: Basic debugging checklist.

use Net::Ping6;

...

    if($p->ping6($&))
[download]

If I drop the '6', and use Net::Ping, then change $` to $&, it works for me: the ping_output file shows the correct 'responding' message for the list of IP addresses I gave it.