#!/usr/local/bin/perl -w
use strict;
use Jenkins::API;

my $jenkins = Jenkins::API->new(
   { base_url => 'http://localhost:8080' });

if( $jenkins->check_jenkins_url() ) {
 print "ok\n";
} else {
  print "not ok\n";
}