とりあえずこんな感じかなあ……確率の計算なんてもう忘れたｿﾞﾇ

#!/usr/local/bin/perl
use strict;

my $a = 200; # Aの数
my $b = 300; # Bの数
my $c = 3; # 実際の当たりの数
my $d = 1000; # 試行回数

my $e = 1;
for (my $n=0; $n<$c; $n++) {
$e *= $d - $n;
}
my $f = 1;
for (my $n=1; $n<=$c; $n++) {
$f *= $n;
}

my %x;
$x{'a'} = (1/$a)**$c * (1-1/$a)**($d-$c) * $e/$f; # Aでその当たり回数になる確率
$x{'b'} = (1/$b)**$c * (1-1/$b)**($d-$c) * $e/$f; # Bでその当たり回数になる確率

print "Content-type: text/plain\n\n";
print "A: " . $x{'a'} . "\n";
print "B: " . $x{'b'} . "\n";