sub jitter {
 for (1..100)
  {
   print "|";
   $foo=rand 100;
   for(1..$foo){}
   print "\x08";
   print "/";
   for(1..$foo){}
   print "\x08";
   print "-";
   for(1..$foo){}
   print "\x08";
   print "\\";
   for(1..$foo){}
   print "\x08";
  }
}
 
sub flimflam {
$bar= rand 10;
 for (1..$bar)
 {
   jitter();
   print ".";
 }
}