$i=256;
while (1)
{
    print ++$i, "\n";
    system ("perl -e \"\$_ = 'x' x ($i*1024*1024)\"");
}