I'm not trying to be a wise-acre, just I'm assuming that this is a syntax question:

use strict;
my $day = 'wed';
my $date = 1;
($day eq 'tuesday' && $date <= 7) or die "Barf!\n";
print "Script completed.\n";
[download]