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

#!/usr/bin/perl ## ## This is just a small and clumsy hommage to all the womans. ## Please remember a woman close to you today. ## They deserve our appreciation and love this day. ## Thanks to my mother, for everything she have done for me, ## and mainly to my wife, that allways supportted me and never gave up +. ## package Woman; use warnings; use strict; use Love; use Kindness; use Patience; use Dedication; use Charm; use Beauty; use Tenderness; use Strength qw( emotional physical ); use Professionalism; use Persistence; map __PACKAGE__->have( $_ ), qw( Success Love Happiness Self-Realizati +on Equal-Rights );

Update: Thanks to liverpole for spell-check this and point me my bad english related faults. :-)