#!/usr/bin/perl

open(STATSC,"+<","/etc/stats.conf");
my @SC=<STATSC>;
@SC = grep(!/^BLACKHOURS=/,@SC);
seek(STATSC,0,0);
print STATSC join("",@SC);
truncate(STATSC,tell(STATSC));
close(STATSC);