#!/usr/local/bin/perl
$v = 1;
$f = 0;
if ($v) {
	print "V is true\n";
}
if ($f) {
	print "f is true\n";
}