From OrganicDesign Wiki
#
# Logging to a file from perl
sub logAdd {
my $entry = shift;
my $subname = $::subname ? "[$subname]\t" : '';
open LOGH, '>>', "../$peer.log" or die "Can't open $peer.log for writing!";
print LOGH localtime()." : $subname$entry\n";
close LOGH;
return $entry;
}