PerlとPHPでDigest認証

digest.php

<?php
echo get_htdigest('test','aaa','test');
function get_htdigest($id, $relm, $pass) {
  return "$id:$relm:" . md5("$id:$relm:$pass");
}

digest.pl

#!/usr/bin/perl

use strict;
use warnings;
use Digest::MD5;

print get_htdigest('test','aaa','test');

sub get_htdigest {
  my ($id,$relm,$pass) = @_;
  my $ctx = Digest::MD5->new;
  $ctx->add("$id:$relm:$pass");
  return "$id:$relm:" . $ctx->hexdigest;
}