http://www.perlmonks.org?node_id=177992


in reply to just another love poem

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; }
-----------------------------------------------------------
use Love; use Data::Dumper; @price = <DATA>; $love = Love->loss(\@price); __END__ SU Priviledges Net Access Using Linux

--

Brother Frankus.

¤