package FunnyEmail;
use strict;
use warnings;
use Email::Simple;

sub new {
    my $class = shift;
    my $simple = Email::Simple->new(...);
    my $self = {simple => $simple};
    bless $self, $class;
}