#!/usr/bin/perl -w

use Set;

$s1 = Set->new();

$s1->add("Hi");
$s1->add("Bye");
print "The set " . $s1->toString();
