in reply to Logical expression evaluation

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

-enlil