#!/usr/bin/perl -w
@array=("a" .. "z" );
print "This just prints out all possible domain suffixes.";
for ( $v=0 ; $v<=25 ; $v++ )
{
for ( $b=0 ; $b<=25 ; $b++ ) 
{ 
  print ".$array[$v]$array[$b]\n";
  for ( $e=0 ; $e<=25 ; $e++ ) { print ".$array[$v]$array[$b]$array[$e]\n";}
 }
}