#!/usr/bin/perl -w
use CGI qw (:standard);
use Net::Ping; 
 
 
  print "Content-type: text/html\n\n";
  print "\n",'<br><br>';
  print start_html(), "\n";

if (param()) {
  my $pingadr = param("ping1");
  
  my $pink = Net::Ping->new();
  my $statuszeug = $pink->ping("$pingadr");
  
  print p($statuszeug), "\n";
   	
 } else { 
  print start_form;
  print textfield("ping1"), "\n";
  print submit("Ping Absenden");
  print "\n", end_form;
  }

  print "\n", end_html;