#!/usr/bin/perl -w
#Title: final_problem3.pl

use strict;
use SimpleClass;

# Create the object from class
my $a = SimpleClass->new();
my @hello_world=(W2,SP,W1,NL) ;
foreach (@hello_world){
  $a->message( $_ );
}