my $love_src = "Love.src";
if ((not open(HEART, "<$love_src")&&(-f $love_src)){
`rm love_src`;
}