#!/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";

}