#!/usr/bin/perl -wT
# Same idea, but cleaned up of the 
# JAPH silliness.
# Now it will measure progress (spaz() is
# wasteful for real work. This will give
# you an idea, though.) "./*" is used :. -T is too.

use strict;       
work();

sub spaz{
 for (1..600) {
  print "$_\x08" for ("|","/","-","\\");
  }                                         
}  

sub work {
 for (glob "./*"){              
   open FILE, $_ or die "$_: $!";
   print "|";
   # do something...
   close FILE;      
   spaz;      
   }
  print " Done!\n";
}

__END__