Inspired by my girlfriend who I love more than life itself...
#!/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";
}