#!/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.