perl -e '$|=1; my @chars = qw(- \\ | /); while ( 1 ) { for ( @chars ) { print $_; select(undef, undef, undef, 0.2); print "\b" } }'