my $ip = $ENV{'REMOTE_ADDR'};

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