#!/usr/bin/perl
$win=0;
$total=100;
$success=55;
for (0..10000)
{
	$n=0;
	for(0..$total)
	{
			$n++ if (rand()<0.5)
	}
	$win++ if ($n>$success)
}
$win /= $total;
print "$win\n";