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

$|=1;  # Turn on automatic flushing on stdout
for (0..1000) {
        my $status = substr(rand,0,5);
        print "     \r", $status;
        sleep 5;
}