#!/bin/perl

use strict;
use Frontier::Client;

my $rps = Frontier::Client->new('url' => 'http://servername/services/DMIService?wsdl');

print "Calling ServerID()\n";

my $suuid=$rps->call("ServerID");

print "\n=-----------------=\n";
print "Server ID is $suuid\n";
print "\ndone\n";