A friend of mine, who is a Unix admin, recently got married. As standard I got the couple a wedding card and a perl book. I was looking for something other than the standard "Congratulations" to write inside the card. So being the perl junky I am I decided to write them a program. The code bellow is not really functional, but I think it is a pretty cool use for perl........enjoy!
use Life;
use Marrage;
my $bill = new Life('Male');
my $karen = new Life('Female');
if ( ($bill->loves($karen)) && ($karen->loves($bill)) ) {
my $us = new Marrage($bill, $karen);
print $us->together_forever();
}