$ perl a.pl 0
max($x, 4)=4
$x=5

$ perl a.pl 1
max($x, 4)=5
$x=5