# chomp (my $d=`date +%Y%m%d`);
# $d.='.blg';
my @now = localtime;
my $d = sprintf "%04d%02d%02d.blg", $now[5]+1900, $now[4]+1, $now[3];
# system "emacs -nw $d";
system "emacs", "-nw", $d;
print "Update archive?  :";
# $d=<>;
$d = <STDIN>; # don't use <> for interaction when you're prompting
if($d=~/^y/i)   {
    # $d=`cp *.blg blgarchive`;
    use File::Copy;
    copy $_, "blgarchive" or warn "Cannot copy $_" for glob "*.blg";
    # chomp (my @d=sort `ls *.blg`);
    my @d = glob "*.blg"; # glob is already sorted
    # Delete all but the last 5 entries
    # for(0..$#d-5){$d=unlink $d[$_];print "$d[$_] : $d\n";}
    splice @d, 0, -5; # remove all but the last five entries
    unlink $_ or warn "Cannot unlink $_: $!" for @d;
}