Help for this page
if Today eq 5days_lest_then_end_of_month; do stuff else skipp
#!/usr/local/bin/perl -w ... print "date = $date\n"; print "today = @today\n";
date = Fri 23-Nov-2001 today = 2001 11 21