#/usr/bin/perl
while (<STDIN>) {
chomp;
my $req= "GET ".$_." HTTP/1.1\r\n".
  "Host: translate.yandex.net\r\n".
  "Accept-Encoding: gzip, deflate\r\n".
  "Connection: Close\r\n".
  "\r\n";
print length($req)."\n".$req;
}