# check webservice
like(
     `lynx http://tiago.com -head -dump`,
     qr/200 OK/,
     'HEAD request using lynx'
     );


# disk space
for (`df`) 
{
    my ($filesystem, $use) = /^(\S+) .+ (\d+)%/;
    next unless ($filesystem && $use);
    ok($use < 70, "$use \%filesystem");
}


# running daemons
my @ps = `ps -e`;
for my $daemon (qw(crond syslogd ntpd))
{
    my $cnt = grep /$daemon/, @ps;
    ok($cnt, "$daemon ($cnt)");
}


# software version
like(
     `nmap --version`,
     qr/\W3\.\d/,
     'nmap version test'
     );


# binaries and path
for my $bin ('ping','kill','pod2text', 'nslookup', 'tail')
{
    my $loc = `which $bin`;
    chomp $loc;
    ok(stat($loc), $loc);
    ok(-x _, 'executable by effective uid/gid');
}


# ping the machine
$ip = '66.39.54.27';
my $ret = join('', `ping -c 5 -W 1 $ip`);
like($ret, qr/ 0\% packet loss/, 'packet loss');
                                                                                                   
# DNS
$ip = '66.39.54.27';
$name = 'perlmonks.org';
like(`host $ip`, qr/$name/, 'DNS');
like(`host $name`, qr/$ip/, 'reverse DNS');