#! perl -sw
use strict;
$|++;

sub spinner{ 
    my ($s, $n) = (shift,0); 
    return sub{ substr( $s, $n++ % length $s,1) . "\cH"; }
}

my $spinner = spinner '-\|/';

print "Working ";
print $spinner->() for 1 .. 10000;