#! /bin/perl

# Le site dont on veut vérifier le fonctionnement
$param = shift;


if( $param eq "" ) {
  # on vérifie le localhost
  $host = "localhost";
} else {
  $host = $param;
}

$result = `curl -I $host &> /dev/null && echo OK || echo NON`;

print $result;