LogAddFile.pl

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;
	}