package Love;

use Sex qw( pain Mighty_Pain ); # but I try ;)

package Mighty_Pain;
@ISA = qw( pain );

package pain;

sub loss($) {
   # my pity, my pain, myself
   my ($pity,$pains,$self) = (@_,{});
   # When we take pains, we go to any length
   $self->{$_} = length for @$pains;
   # When it goes wrong, it's so easy
   bless $self, $pity;
   # three enter; one may leave. When you're ready
   $self;   
}