1
2
3
4
5
6
7
8
9
10
11
12
13

#!/usr/bin/perl

use warnings;
use strict;
use Net::Ping;

my $host = "127.0.0.1";   # IP oder Host
my $p = Net::Ping->new();

print "Unable to reach $host!" unless($p->ping($host, 1));
# 1 Sekunde Timeout

exit;

Gruß, Erik!

s))91\&\/\^z->sub{}\(\@new\)=>69\&\/\^z->sub{}\(\@new\)=>124\&\/\^z->sub{}\(\@new\)=>);
$_.=qq~66\&\/\^z->sub{}\(\@new\)=>93~;for(@_=split(/\&\/\^z->sub{}\(\@new\)=>/)){print chr;}

It's not a bug, it's a feature! - [CGI-World.de]