Help for this page

Select Code to Download

Select or download this

use strict;
use Digest::MD5 qw(md5_hex);
...
    #print $data;
    close (NEWFILE);
}