Acceptance of uc was added to 0.03. To have older versions accept uc:

print "SHA1: " . unpack('H*', decode_base32(lc($urn_decode))) . "\n";
[download]