Help for this page

Select Code to Download

Select or download this

#!/usr/bin/perl -w
use strict;
...
__DATA__
TECH SCANNER WEBSERVER TALKTOME TRAINING
TESTING MOBILE TECHADMIN CIRCADMIN MANAGERS

Select or download this

while (<DATA>)
{
...
   my $format = '%-10s ' x @tokens;
   printf "$format\n", @tokens;
}