Check whether Site/Host is Alive or Not [Perl Tool]

Below tool, will help You in Checking whether Host or Site, is Alive or Not.

PHP Code:

#!/usr/bin/perl
use strict;
use warnings;
use Net::Ping;my $host;my $pinger;
main(@ARGV);
sub main{
print "
                                                   
oo____oo_____ooooooo__________oooo________oo____oo_____oooo_____oooooooo_____ooo​oooo_
oo___oo______oo____oo_______oo____oo______oo___oo_______oo_________oo________oo_​_____
oo__oo_______oo____oo______oo______oo_____oo__oo________oo_________oo________ooo​o____
oooooo_______ooooooo_______oo______oo_____oooooo________oo_________oo________oo_​_____
oo___oo______oo____oo_______oo____oo______oo___oo_______oo_________oo________oo_​_____
oo____oo_____oo_____oo________oooo________oo____oo_____oooo________oo________ooo​oooo_
________________________________________________________________________________​_____

";
    print "[+] Please Report any Bug to http://krokite.com Or http://www.worldofhacker.com \n";
    print "[+] Check whether Site is Alive or not, Or if you are able to ping the website\n";
    print "[+] Please Enter Website Name \n";
    print ">>> ";
    $host = <stdin>;
    chomp($host);
    $pinger = Net::Ping->new("icmp", 1, 64);
    if ($pinger->ping($host)) {
        print "[=] $host is up\n";
    } else {
        print "[=] $host is down\n";
        print "[+] Please note in some cases, host may be blocking your Request"."\n";
    }
} 

Git Repository :- https://github.com/krokite/Misc-Scripts/...eckHost.pl