Help for this page

Select Code to Download

Select or download this

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