PerlでIPの抜き方はわかったが、ホスト名はどうやって抜くんだ？