Select Code to Download

my $seed=rand;
my $result=($seed>=0) + ($seed>=.8) + ($seed>=.9);
print "$result\n";