#!/usr/bin/perl
use strict;
use LWP::UserAgent;
print "Enter domain:";
my $str=<STDIN>;
chomp $str;
my $browser = LWP::UserAgent->new;
my $url = 'http://www.seologs.com/ip-domains.html';
my $response = $browser->post($url,['domainname' => $str]);
my $data=$response->content;
while($data=~/(?<=\))([-\s\w\.]*)(?=<br>)/ig){
  print $1."\n";
}