#!/usr/bin/perl
$name=shift;
# font-weight: bold">\n\s\s\s\s
use IO::Socket::INET;
# http://www.keiichianimeforever.com/culture/japanese/nametranslator.html?name=weeabot
my $sock = IO::Socket::INET->new(PeerHost => "keiichianimeforever.com", PeerPort => 80) or die $@;
print $sock "GET /culture/japanese/nametranslator.html?name=$name HTTP/1.0\r\n\r\n";
while($x=<$sock>) {
        $txt .= $x;

}

my $hm = (split(/bold\"\>/, $txt))[1];
my $nm = (split(/\<\/p\>/, $hm))[0];
$name = $nm;
$name =~ s/\n//g;
print substr($name, 5);