my @ip = map { hex($_) } map { /(..)/g } unpack("H*",$pip);

print join '.',@ip;
[download]

Since the system call gethostbyname results in a C struct, it can be unpacked.