FUNC("test",$flag);

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