my $love_src = "Love.src";
open(HEART, "<$love_src") or die("HEART not opened.\n");