#!/usr/bin/perl use CGI; use IO::Socket::INET; my $cgi = CGI->new; print $cgi->header; $socket = IO::Socket::INET->new("google.com:80"); if ($socket) { print "Success\n"; } else { print "Failed\n"; } close($socket); # just to be nice.