#------Check options-----
# Check if host is defined and alive
if (!defined $host){
    print "\nNo host specified\n\n";
    showUsage();
} else {
    print "\nChecking if $host is alive.. \n";
    $ping = Net::Ping->new();
    if ($ping->ping($host)){
        print "$host is alive\n\n";
    }else {
        print "$host is unreachable\n\n";
        exit;
    }    
    $ping->close();
}