my $nth = shift;
die "N must be numeric" if $nth =~ /\D/;
die "Day is out of range" if $nth > 5;

my ($mday)  = (localtime)[3];
my $weeks = int(($mday-1)/7)+1;
exit 0 if $weeks == $nth;
exit 1;