Select Code to Download

use strict;
use warnings;
...
         if($1 >= $hist_size){ unlink $f; }else{ rename $f,$_; }
}