use LWP::Simple;
use Digest::MD5 qw(md5);

print md5(get("http://promote.pair.com/i/pair-banner-current.gif"));