#!/usr/bin/perl

use strict;
use warnings;
use diagnostics;

my $flag=  ((-M '/tmp/a') > (-M '/tmp/b'));           #no warnings
my $flag2= $flag and ((-M '/tmp/c') > (-M '/tmp/d')); #warning at here