FUNC("test",$flag);

sub FUNC{
print $_[0] if ($_[1]);
}


##</code><code>##


Func("test") if $flag);

sub FUNC{
print $_[0];}