#!/usr/bin/perl -wT
sub love {
    local ( $first, $last ) = @_;

    print "\nWill You Marry Me, $first $last ??\n";
    chomp( $love = <STDIN> );
    if ( $love =~ /yes/ ) { &yes }
    else { print "Error no 1 Kernel Failure Shutting Down\n" }
}

sub yes {

    print "\nGood!!  I couldn't live without you!!\n\n";
    print "
      ****     ****
     ******* *******
     ***************
      *************
        *********
          *****
            *
\n";

}

my $a = Danyeal;
my $b = Waddell;

&love( $a, $b );