#!/usr/bin/perl -l

use strict;
use warnings;

my $dow = 2;
while ($dow < 8) {
	my $workday = 0 if not $dow == 6 and not $dow == 7;
	$workday = 1 if $dow == 6; ###
	print "$dow $workday";
	$dow++;
}