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