document.write('<div class="perl" style="font-family: monospace;"><br />');
document.write('&nbsp;<span style="color: #000000; font-weight: bold;">use</span> Digest::<span style="color: #006600;">MD5</span> <a target="_blank"&nbsp; href="http://www.perldoc.com/perl5.6/pod/func/qw.html"><span style="color: #000066;">qw</span></a><span style="color: #66cc66;">&#40;</span>md5 md5_hex md5_base64<span style="color: #66cc66;">&#41;</span>;<br />');
document.write('<br />');
document.write('&nbsp;<span style="color: #0000ff;">$digest</span> = md5<span style="color: #66cc66;">&#40;</span><span style="color: #0000ff;">$data</span><span style="color: #66cc66;">&#41;</span>; <span style="color: #808080; font-style: italic;">#binary</span><br />');
document.write('&nbsp;<span style="color: #0000ff;">$digest</span> = md5_hex<span style="color: #66cc66;">&#40;</span><span style="color: #0000ff;">$data</span><span style="color: #66cc66;">&#41;</span>; <span style="color: #808080; font-style: italic;">#hexadecimal</span><br />');
document.write('&nbsp;<span style="color: #0000ff;">$digest</span> = md5_base64<span style="color: #66cc66;">&#40;</span><span style="color: #0000ff;">$data</span><span style="color: #66cc66;">&#41;</span>; <span style="color: #808080; font-style: italic;">#base64 encoded</span><br />');
document.write('&nbsp;</div>');
document.write('<br />&nbsp;<br /><div style="font-size: 12px">Brought to you by the community at <a href="http://www.bytemycode.com/snippets/snippet/802/1/" target="_blank">byteMyCode</a>.</div>');
