#!/bin/perl -w
	$x1 = "" + 0;
	$x2 = (1 == 0) + 0;