#!/usr/bin/perl
use strict;
use Digest::MD5;

#Example 1====================
my $chapid = "\027";
my $chapchalange = "\340\174\012\314\214\070\070\231\377\005\016\132\270\024\241\163";

print "\nExample1=". Digest::MD5::md5_hex($chapid."AAA".$chapchalange);

#Example2=====================
my $chapid2= '\027';
my $chapchalange2= '\340\174\012\314\214\070\070\231\377\005\016\132\270\024\241\163';

print "\nExample2=".Digest::MD5::md5_hex($chapid2."AAA".$chapchalange2);