#!/usr/bin/perl

use strict; 
use SUSE::Swamp;

my $url = 'http://masson.suse.de:8080/axis/services/swamp?wsdl';
my $username = "uname";
my $pwd = "pw";
my $wfid = 1;

my $swamp = SUSE::Swamp->new($url);

if( not defined (my $result = $swamp->getWorkflowInfo( 1, $username, $pwd )) ) {
    print "Error: ".$swamp->error() . "\n";
} else {
        print "Workflow running? : " . $result->{"isRunning"} . "\n";
}