use HelloWorld;

my $greeting = HelloWorld->new();
$greeting->set('text', 'Hello World');
$greeting->say($greeting->get('text'));

package HelloWorld;

use strict;
use warnings;
use lib qw(.);
use Greetings ($0);
use String;



#Erzeugen
sub new {
    my ($class,@params) = @_;
    my $self = {};
   bless($self,$class);
  return($self);
}

sub set
{
 my ($self,$var, $value ) = @_;
 $self->{$var} = $value;
}

sub get
{
 my ($self,$var) = @_;
 return $self->{$var};
}



sub say
{
 my ($self,$value) = @_;
 print $value;
}

#alternativ
sub say2
{ 
 my ($self,$value) = @_;
 print $self->{text};
}