$p->bind("$actual ip of the source"); #This can not be a 127.0.0.1

if ($p->ping($hostname[0],3)) #You can't give a array as a first argument.