package Hello;
use strict;

sub new 
{
	my $class = shift;
	my $self  = shift || { };
	bless $self, $class;
}

sub hello 
{ 
	my $self = shift;
	return 'Hello, World!' 
}

1;