$|++; for (my $x = 0; $x <= 25; ++$x){ foreach (("-", "\\", "|", "/")){ print $_; sleep 1; print "\b"; } } [download]
In reply to Re: making a spinner by phubuh in thread making a spinner by archen