Test if WHAT-IF is alive

#!/usr/bin/perl
# the first line of the script must tell us which language interpreter to use,
# in this case its perl

use strict;
use warnings;
use Data::Dumper;

# import the modules we need for this test; XML::Compile is included on the server
# by default.
use XML::Compile::WSDL11;
use XML::Compile::SOAP11;
use XML::Compile::Transport::SOAPHTTP;

eval
{	
	# Retrieving and processing the WSDL
	my $wsdl  = XML::LibXML->new->parse_file('http://wiws.cmbi.ru.nl/wsdl');
	my $proxy = XML::Compile::WSDL11->new($wsdl);
	
	# Generating a request message based on the WSDL
	my $count = $proxy->compileClient('PDB_sequence');
	
	# Calling the service and getting the response
	my ($answer, $trace) = $count->( id => '1crn' );

	# If the response arrived, look for a specific value that is supposed to be larger than 0
	# If the value is larger than zero, return 0 because the test passed.
	# If the value is something else, return 2 to indicate a warning.
	# If no answer has arrived, return 1 to indicate the test failed.
	if ( defined $answer ) {
		
		# the response for this webservice should be an array of residue's:
		if (ref($answer->{parameters}->{response}) eq 'ARRAY' and
			defined (@{$answer->{parameters}->{response}}[0]->{residue})) {
			print "Passed\n";
			exit 0;
		} else {
			print "Unexpected data\n";
			exit 2;
		}
	} else {    
		print "Failed\n";
		exit 1;
	}
};

if ($@)
{
	print "Caught an exception: $@\n";
	exit 1;
}