Your print statements are a little odd (I'm not even sure why it works that way), and would be more readable if you just did:

print LOGFILE $stuff_to_print."\n";
[download]