Select Code to Download

use Digest::MD5 qw( md5_hex );
my $userid='me@example.com';
...
my $salt2='q2034rhawpifhasodfha0s0f';
my $ipaddr=$ENV{'REMOTE_ADDRESS'};
my $sechash=md5_hex($userid . $passhash . $salt2 . $ipaddr);