Select Code to Download

#"Cluster.pm"
use strict;
...
  return $self->{_clusterName};
}
1;

use strict;
use warnings;
...
my $test2 = Cluster->new("Two");
print $test1->getClusterName()." ";
print $test2->getClusterName();

#OUTPUT:
one One Two