#!perl -lp
use Digest::MD5 md5_hex;$_=md5_hex$_