gistfile1.txt

$datetext{string} = strftime "%Y-%B-%d (%A)", localtime;

sub isDateAlreadyWritten {
  my $ret = 0;
  my $bw = File::ReadBackwards->new($log_file);

  until ($bw->eof) {
    my $line = $bw->readline;
    chomp($line);

    if ($line eq $datetext{string}) { $ret = 1; last; }
  }

  $bw->close;

  return $ret;
}