#!/usr/bin/perl -wuse strict;select((select(STDOUT), $| = 1)[0]);my $sum = 0;for (my $exp = 1;; $exp++) { $sum += ((-1) ** ($exp + 1)) / (2 * $exp - 1); print "".(4 * $sum)."\r";}