perl -e 'print "\b" . substr("|/-\\", time % 4, 1 ) while 1'