use strict; 
use warnings;
sub f { $_[0]==15 }  
if((my $x=15) && f($x)) { print "OK\n" }'