Select Code to Download

#!/usr/bin/perl -w

use strict;

if (1==1) { 1; }

$ perl -MO=Deparse equal

BEGIN { $^W = 1; }
...
    '???':
};

#!/usr/bin/perl -w

use strict;

if (0==1) { 1; }

$ perl -MO=Deparse unequal

BEGIN { $^W = 1; }
...
    '???'
};

#!/usr/bin/perl -w

use strict;

if (1==0) { 1; }

$ perl -MO=Deparse unequal2

BEGIN { $^W = 1; }
...
    '???'
};

#!/usr/bin/perl -w

use strict;

1;

$ perl -MO=Deparse uncommented

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

#!/usr/bin/perl -w

use strict;

# 1;

$ perl -MO=Deparse commented

BEGIN { $^W = 1; }