Select Code to Download

Q:\>perl -w tmp.pl
Global symbol "$l" requires explicit package name at tmp.pl line 3.
...
.

Q:\>

#!/usr/bin/perl
use strict;
...
    Digest::MD5::md5_hex(Digest::MD5::md5_hex(time().{}.rand().$$));
}