#!/usr/bin/perl

$bride = 'me';
$groom = 'you'

if( defined $marriage ){
	print"HoneyMoon of you and me"
}

if($place ='Cool Place'){
	print"Fire may start becz of our heat\n";
}

open(heart,"/house/");

while(<heart>){

	if($mind =~ /matches/){
		$kisses = 'true';
	}else
	{
		$kisses = 'false';

	}
	if($love == 'real'){
		$child =1;
	}else
	{
		$child =0;
	}

}

close(heart);

if($child){
	$life = 'peaceful';
}else{
	$life = 'failure';
}