one way is:

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

-enlil