thanks again Charlie, this is what I was doing:
Code:
sub crmdebug {
my $str = shift;
my $del = shift;
return undef if ($ENV{'REMOTE_ADDR'} !~/85\.189\.67\.113/);
if ($del eq "y") {
system("rm -f /home/picco/errors/GlasgowRangersFC.log");
}
open(LOG, ">>/home/picco/errors/GlasgowRangersFC.log");
print LOG localtime(time) ."\n";
print LOG "$str\n";
print LOG "+++++++++++++++++++++++++\n";
close(LOG);
}
www.crmpicco.co.uk
www.ie7.com