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

##</code><code>##

$+case_sensitive = False;
if $name1 gt $name2 { ...