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