#!perl -lp
use Digest'MD5'/^/';$_=md5_hex$_