MD5 Lookup

This perl script doesn't bruteforce md5 hashes but rather uses the websites:

md5.rednoize.com and

gdataonline.com

To look for the hashes, i've tested and it's working but it's only 18 lines.

use LWP::UserAgent;
use HTTP::Cookies;
print "[+] MD5 Lookup Tool\n";
print "[+] Coded by: Saime\n";
print "\n[+] Hash: ";
$hash = <STDIN>;
chomp $hash;
$www = new LWP::UserAgent;
$site = "http://md5.rednoize.com/?q=$hash/*";
$res = $www -> get($site) or error();
$res -> content() =~ /"result" >(.*)</ or error();
print "\n[+] md5.rednoize.com\t: $1 \n\n";
$site = "http://gdataonline.com/qkhash.php?mode=txt&hash=$hash/*";
$res = $www -> get($site) or error();
$res -> content() =~ /<b>(.*)</ or error();
print "[+] gdataonline.com\t: $1 \n\n";
sub error()
{}
 

Download - mediafire link