#!/usr/bin/perl use LWP::UserAgent; use HTTP::Request::Common; $md5 = shift; $lwp = LWP::UserAgent->new; $lwa = $lwp->get(‘ $hash = $lwa->content; print “Result : $hash”;