Note that you can use Digest::MD5 to calculate the MD5 within Perl instead of running an external program:

use Digest::MD5 'md5_hex';
print md5_hex("123456");
__END__
e10adc3949ba59abbe56e057f20f883e
[download]