Code:
#!/usr/bin/perl

print q{
-[---------------------------------------------------------------------

-]-

                          RooT Md5 Database Online
                          http://www.free-hack.com
                 Greetz to FrEe, LordBlubb, Kugelblitz & Rip

-[---------------------------------------------------------------------

-]-

};

use IO::Socket;

print q(
RooT Md5 Database Online
);

print q(
° Euer Hash hier!! - Beispiel : 670b14728ad9902aecba32e22fa4f6bd
° Md5 Hash: );
$hash=<STDIN>;
chop ($hash);

$url= "gdataonline.com";
$host = "$url"."/qkhash.php?mode=txt&hash=";
$postit = "$host"."$hash";

$lrg = length $postit;


my $sock = new IO::Socket::INET (
                                 PeerAddr => "$url",
                                 PeerPort => "80",
                                 Proto => "tcp",
                                );

die "\nConnection Refused : $!\n" unless $sock;

print $sock "POST /qkhash.php?mode=txt&hash="."$hash"." HTTP/1.1\n";
print $sock "Host: $url\n";
print $sock "Accept: 

text/xml,application/xml,application/xhtml+xml,text/html;q=0.9,text/pla

in;q=0.8,image/png,*/*;q=0.5\n";
print $sock "Referer: $url\n";
print $sock "Accept-Language: en-us\n";
print $sock "Content-Type: application/x-www-form-urlencoded\n";
print $sock "User-Agent: Mozilla/5.0 (BeOS; U; BeOS X.6; en-US; 

rv:1.7.8) Gecko/20050511 Firefox/1.0.4\n";
print $sock "Content-Length: $lrg\n\n";
print $sock "$postit\n";
close($sock);

use LWP::Simple;

$res = "http://"."$url"."/qkhash.php?mode=xml&hash="."$hash";
$results = get($res);
print "\n"."$results"."\n\n";