#!/usr/bin/perl
print qq(Content-type: text/html\n\n);

$v = 4;
if(! ($v & ($v-1) )
{print "Число $v является целой степенью двойки!"}
else
{print "Обломс"}