#!/usr/bin/perl -w

use strict;

if (1==1) { 1; }

##</code><code>##

$ perl -MO=Deparse equal

BEGIN { $^W = 1; }
use strict 'refs';
do {
    '???':
};



##</code><code>##

#!/usr/bin/perl -w

use strict;

if (0==1) { 1; }

##</code><code>##

$ perl -MO=Deparse unequal

BEGIN { $^W = 1; }
use strict 'refs';
do {
    '???'
};



##</code><code>##

#!/usr/bin/perl -w

use strict;

if (1==0) { 1; }

##</code><code>##

$ perl -MO=Deparse unequal2

BEGIN { $^W = 1; }
use strict 'refs';
do {
    '???'
};



##</code><code>##

#!/usr/bin/perl -w

use strict;

1;

##</code><code>##

$ perl -MO=Deparse uncommented

BEGIN { $^W = 1; }
use strict 'refs';
'???':



##</code><code>##

#!/usr/bin/perl -w

use strict;

# 1;



##</code><code>##

$ perl -MO=Deparse commented

BEGIN { $^W = 1; }