#!/usr/bin/perl -w

use strict;
use myObject;

my $T = myObject->new();

# We add a server by passing in the server name, and a hash ref of the
# credentials we want to add
$T->addServer('barrabas', { password=>"sa", hostname=>"devo.marcorp.org" });
$T->printMe;

$T->deleteServer('default');
$T->printMe;

$T->removeServerMap;
$T->printMe;