My proposition is:

my $love_src = "Love.src";
unless(open(HEART, "<$love_src")){
open(open(HEART, ">$love_src"));
print HEART "You must be mine:-)))\n";
close(HEART);
}
[download]

or little bit brutal:

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