#!F:/Net/Perl/bin/Perl.exe

use strict;
use Digest::MD2;

print "Content-type: text/plain\n\n";

my $ctx = Digest::MD2->new;
my $data = "foo";
$ctx->add($data);

my $digest = $ctx->digest;