path: root/pgn/twic.pl

#!/usr/bin/perl

for ($x = 608; $x > 0; $x--)
{
    system "fetch http://www.chesscenter.com/twic/zips/twic" . $x . "g.zip";
}