#!/usr/bin/env perl
$foo = int(rand(10));
print "$foo\n";
$foorem = $foo % 2;
print "$foorem\n";

