Select Code to Download

print new_session_id(), $/;

sub new_session_id {
...
    }
    return $id;
}

use Digest::MD5 "md5_hex";

...
   grep { /USER|REMOTE/ } keys %ENV;

print md5_hex( rand() . join('', @user_info) );