Select Code to Download

use Digest::MD5 qw/ md5_hex /;

my $digest=md5_hex("http://www.berghold.net");
printf "%d\n", hex(substr($digest, -4)) % 10_000;