#!/usr/local/bin/perl -w
use strict;

$| = 1;

my $item = 0;

print STDERR "I am working on item ",  ++$item, " \r";
print "\a";
sleep 1;
print STDERR "I am working on item ",  ++$item, " \r";
print "\a";
sleep 1;
print STDERR "I am working on item ",  ++$item, " \r";
print "\a";
sleep 1;
print STDERR "I am working on item ",  ++$item, " \r";
print "\a";
sleep 1;
print STDERR "I am working on item ",  ++$item, " \r";
print "\a";
sleep 1;

print "\nMan, $item items, I'm exhausted!\n";

