use strict;
use warnings FATAL => 'all';
use utf8;

package Hello;

sub new {
	my $self = shift;
	my $class = ref $self || $self;
	return bless {@_}, $class;
}

sub greet {
	print "Hello!\n" or die $!;
}

1;

=head1 NAME

Hello - class to greet a user

=head1 METHODS

=head2 $hello->greet()

Prints a greeting.