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

my $item = 0;

print "I am working on item ",  ++$item, "\n";
sleep 1;
print "I am working on item ",  ++$item, "\n";
sleep 1;
print "I am working on item ",  ++$item, "\n";
sleep 1;
print "I am working on item ",  ++$item, "\n";
sleep 1;
print "I am working on item ",  ++$item, "\n";
sleep 1;

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

