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