IP/domain to Domains Grabber

#!/usr/bin/perl
use HTTP::Request;
use LWP::UserAgent;
if($^O =~ /Win/){

   system("cls");
   system("color a");
   system("title Get Sites by : ip");

}else{

   system("clear");
}
print q{

	                   *--------------------*
	                   *       Get          *
	                   *      Sites         *
	                   *  result in log.txt	*
	                   *--------------------*
};
print "\nPut Host or IP (host without http://) :";
my $host = <>;
chomp($host);
my $ua = LWP::UserAgent->new(agent => 'Mozilla/5.0 (Windows; U; Windows NT 5.1; fr; rv:1.9.1) Gecko/20090624 Firefox/3.5');
$ua->env_proxy;
#Proxy  Replace 127.0.0.1 with http://www.proxy:port
my $response = $ua->get("127.0.0.1");
#Proxy  Replace 127.0.0.1 with http://www.proxy:port
my $zz = $ua->post('http://domains.yougetsignal.com/domains.php',
{
        remoteAddress => $host,
}
);

my $resulta = $zz->content;
while ($resulta =~ m/\[([^\]]*)\]/g)
{
        $zeb = $1;
        $zeb =~ m/\"(.*?)\", \"?\"/g;
open(a, ">>log.txt");
print a "http://$1/\n";
close(a);
}
print "\nresult in log.txt";