Real Russian Perl

#!/usr/blin/perl
while(true) {
    ++$i--;
}