#!perl -p040
$_ x=rand 2