#!/usr/bin/perl
use strict;
use warnings;

my $spinner_pos = 0;

sub spin {
my $spinner = '|\-/';
print STDERR substr($spinner, $spinner_pos++%length($spinner), 1)."\r";
}

while (1) {
qx(cat /etc/termcap); #simulate doing important stuff 
spin();
}