sub send {
  my $self    = shift;
  my $args    = shift;

  my $email   = $args->{email}   || $self->{EMAIL};;
  my $subject = $args->{subject} || "Subject not specified";
  my $message = $args->{message} || "No message specified";
  my $from    = $args->{from}    || $self->{FROM};

  my $msg = MIME::Lite->new(
    From     => $from,
    To       => $email,
    Subject  => $subject,
    Data     => $message
  );

  $msg->send();
}