#!/bin/sh

while /bin/true ; do
	perl -e 'print "\r$$   ";'
	sleep 1
done