$test1 = Cluster->new("One");
print $test1->getClusterName()." ";
$test2 = Cluster->new("Two");
print $test1->getClusterName();

##</code><code>##

package Cluster;

sub new
{
  my $class = shift;
  my $self = {};

  $self{_clusterName} = shift; 
  $self{_verbs} = [];
 
  bless $self, $class;
  return $self;
}

sub getClusterName
{
  my( $self ) = @_;
  return $self{_clusterName};
}
1;