UNIX for Dummies Questions & Answers

days_from_today()
{
perl -e '
      # time structure into variables
      $when = time + ( $ARGV[0] * 86400);
      ($sec,$min,$hr,$day,$mon,$yr,$wday,@dntcare) = localtime($when);
      $yr = ($yr>=70) ? $yr+1900 : $yr+2000;
      $mon += 1;
      printf("%02d/%02d %d", $mon, $day, $yr);
      '  $1
}

increment=0
days_from_today $increment | read dt yr
print $dt
while :
do
    increment=$(( increment + 14 ))
    days_from_today $increment | read dt yr
    if [[ $yr -gt 2010 ]]
    then
       break
    fi   
    print $dt
done