my @logs = glob "currentlog*.log";
for (@logs) {
    next if $_ eq "currentlog.log";
    unlink $_;
}