use Digest::MD5 qw/md5_hex/;

print "\\x$_" for md5_hex( 'abc' ) =~ /(..)/g;
print "\n";