#! usr/local/bin/perl
# rdo.pl

use strict;
use warnings;

print +(localtime)[7] / 7 % 2 ? "This Friday: Work\n" : "This Friday: Free\n";
print +(localtime)[7] +1 / 7 % 2 ? "Next Friday: Work\n" : "Next Friday: Free\n";
print +((localtime)[7] +2) / 7 % 2 ? "Friday the week after: Work\n" : "Friday the week after: Free\n";