#!/usr/bin/perl
use strict;

$|=1;

while (<>) {

	chomp($_);
	system("echo '$_ -> OK' >> /tmp/debug");
	my @arrDomain = split(/./, $_);
	my $name = $arrDomain[-2];
	my $tld = $arrDomain[-1];
	print "$name.$tld -> OK\n";
	system("echo '$name.$tld -> OK' >> /tmp/debug");
	print "OK\n";

}


output
[root@rtr]# ./mysql_whitelist.pl
www.gmellc.com
. -> OK
OK