perl -lwe'$oldtime = $^T;

          print( -(($oldtime+0) - ($oldtime = time)) )
                                            while sleep 1'