Needed a quick random bit in Perl.

my $rand = int(rand() * 2);