#!/usr/bin/perl

chomp (my $d=`date +%Y%m%d`);
$d.='.blg';
system "emacs -nw $d";
print "Update archive?  :";
$d=<>;
if($d=~/^y/i)   {
    $d=`cp *.blg blgarchive`;
    chomp (my @d=sort `ls *.blg`);
    # Delete all but the last 5 entries
    for(0..$#d-5){$d=unlink $d[$_];print "$d[$_] : $d\n";}
}