$szBlock  = q( sub {
		if ( $x > $y )
		{
			return "X greater \n" ;
		}
		else
		{
			return "y greater \n" ;
		}	
	}
 	) ;

##</code><code>##

	$x=100 ;
	$y= 200 ;