A Perl script for removing entries in a log file before a certain date. Useful for removing obsolete entries in large files.