This script queries Google and returns the first result (the one you'd get hitting the "I Feel Lucky" button). I did it because I wanted not to use LWP::Simple on a computer where the lib was missing. Consider this as is my minimalistic web client example.
\n(the fancy stuff that might confuse you, as "print NOTICE", are for a PsyBNC integration. Ignore them)<\/p>\n
#!\/usr\/bin\/perl\r\n\r\nuse IO::Socket;\r\n$nick = shift (@ARGV);\r\n\r\nif ($#ARGV < 0 ) {\r\nprint ":g00gle NOTICE $nick :Err"\u00a6. google what ffs m8 ?\\n" ;\r\nexit;\r\n}\r\n\r\n$host = "www.google.com";\r\n$document = "\/search?btnI=\\&q=" . join ("+", @ARGV);\r\n$kikoo=0;\r\n\r\n$EOL = "\\015\\012";\r\n$BLANK = $EOL x 2;\r\n\r\n$remote = IO::Socket::INET->new(\r\nProto => "tcp",\r\nPeerAddr => $host,\r\nPeerPort => "http(80)",\r\n);\r\n\r\nunless ($remote) { die "cannot connect to http daemon on $host"; }\r\n$remote->autoflush(1);\r\nprint $remote "GET $document HTTP\/1.0" . $BLANK;\r\nwhile ( <$remote> ) {\r\nif (m\/^location\/i ) {\r\n$tutu = $_ ;\r\n$tutu=~s\/^location: \/\/i;\r\nprint ":g00gle NOTICE $nick :$tutu"; $kikoo = 1;\r\n} ;\r\n}\r\nclose $remote;\r\n\r\nprint ":g00gle NOTICE $nick :No result ffs m8 !\\n" unless $kikoo;<\/code><\/pre><\/div>\n","protected":false},"excerpt":{"rendered":"Simple web client for google querying<\/p>\n","protected":false},"author":1,"featured_media":0,"comment_status":"open","ping_status":"closed","sticky":false,"template":"","format":"standard","meta":{"footnotes":""},"categories":[],"tags":[2,42,41,9],"class_list":["post-33","post","type-post","status-publish","format-standard","hentry","tag-code","tag-google","tag-irc","tag-perl"],"_links":{"self":[{"href":"https:\/\/planetozh.com\/blog\/wp-json\/wp\/v2\/posts\/33","targetHints":{"allow":["GET"]}}],"collection":[{"href":"https:\/\/planetozh.com\/blog\/wp-json\/wp\/v2\/posts"}],"about":[{"href":"https:\/\/planetozh.com\/blog\/wp-json\/wp\/v2\/types\/post"}],"author":[{"embeddable":true,"href":"https:\/\/planetozh.com\/blog\/wp-json\/wp\/v2\/users\/1"}],"replies":[{"embeddable":true,"href":"https:\/\/planetozh.com\/blog\/wp-json\/wp\/v2\/comments?post=33"}],"version-history":[{"count":0,"href":"https:\/\/planetozh.com\/blog\/wp-json\/wp\/v2\/posts\/33\/revisions"}],"wp:attachment":[{"href":"https:\/\/planetozh.com\/blog\/wp-json\/wp\/v2\/media?parent=33"}],"wp:term":[{"taxonomy":"category","embeddable":true,"href":"https:\/\/planetozh.com\/blog\/wp-json\/wp\/v2\/categories?post=33"},{"taxonomy":"post_tag","embeddable":true,"href":"https:\/\/planetozh.com\/blog\/wp-json\/wp\/v2\/tags?post=33"}],"curies":[{"name":"wp","href":"https:\/\/api.w.org\/{rel}","templated":true}]}}