Language Basics Perl

$flag = 2030136;
if ($flag & 1 << 3) {
    print "The third bit is set.";
} 
else {
    print "The third bit is not set.";
}