perl -MCGI -e 'print CGI->new->header;open(F,"c");($c)=;print ++$c;close F;open(N,">c");print N $c;'