foo($x,$y)  if verbose;
$handle= open($fname) or die;