GetOptions('x:s'=>\$x);
$x = 0 unless $x;