#!/usr/bin/perl
use warnings;
use strict;

my @time;
my $prettygirl = 'beautiful';
my $herresponse = 'will be yes';

sub hugs
{
print "OOO";
}

sub kisses
{
print "XXX";
}

while($prettygirl eq 'beautiful')
{
	@time = localtime(time);
	
	print "I love you more than anything in the world!";
	&hugs;
	&kisses;
	
	if($time[5] == 109 and $time[7] == 104)
	{
		until($herresponse eq 'yes')
		{
			print "Will You Marry Me?\n";
			##########
			#Pretty Girl's Response...
			##########
			chomp($herresponse = <STDIN>);
		}
	}
	
	if($time[5] == 110 and $time[7] == 170)
	{
		if($herresponse eq 'yes')
		{
			while($time[5] == 110 and $time[7] == 170)
			{
				@time = localtime(time);
				##########
				#Wedding Bells
				##########
				print "\aDing \aDong\n";
			}
		}
	}
	
	&hugs;
	&kisses;
	print "\n";
}