my $v=1;
my $f=int( !($v) );
print "**$f**\n";