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