#!/usr/local/bin/perl -w

use strict;
use Time::Local 'timelocal_nocheck';

{
   my $friday_date;

   my $now = time ();  # Not used, here, but it's where the time would come from
   
   for (my $i = 0; $i < 365; $i++)
   {
      $now = timelocal_nocheck (0, 0, 0, $i, 0, 2000);

      my ($sec,$min,$hour,$mday,$mon,$year,$wday,$rest) = localtime ($now);
   
      my $then = ((((5 - $wday) + 7) % 7) * (60 * 60 * 24));
   
      ($sec,$min,$hour,$mday,$mon,$year,$rest) = localtime ($now + $then);

      $mon  += 1;
      $year += 1900;
   
      my $temp = sprintf ("%02d/%02d/%04d", $mon, $mday, $year);

      if ($friday_date ne $temp)
      {
         print "$temp\n";
         $friday_date = $temp;
      }
   }
}