#!/usr/bin/perl

$flags = 1 | 2 | 4;

$flags &= ~2;

print $flags . "\n";