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();
}