#!/usr/bin/perl -w
use strict;       
$|++;
spell() or print "\n";

sub spaz{
# you can increase the repetitions to slow this down
# or add something useful in the loop 
 for (1..600) {
  print "$_\x08" for ("|","/","-","\\","_");
  }                                         
}  

sub spell {
  print and spaz for split // , qq._just another perl hacker.;
}

__END__