my $today = (qw<Sun Mon Tue Wed Thu Fri Sat>)[(localtime)[6]];

while (<LOGFILE>) {
    if (m/^$today:/io) {




-----------------------------------------------------------------------------
Copyright 1997-2026 Jeffrey Friedl