Journal: md5 and ip addresses

#!/usr/bin/perl

use Digest::MD5 qw(md5_hex);

$set1 = '0';
$set2 = '0';
$set3 = '0';
$set4 = '0';

for($i = 0 ; $i < 256 ; $i++) {
                for($j = 0 ; $j < 256 ; $j++) {
                                for($k = 0 ; $k < 256 ; $k++) {
                                                for($l = 0 ; $l < 256 ; $l++) {
                                                                $ip = $set1. "." .$set2. "." .$set3. ".". $set4;
                                                                $hash = md5_hex($ip);
                                                                print "IP = $ip , HASH = $hash \n";
                                                                $set4++;
                                                }
                                                $set3++;
                                                $set4 = 0;
                                                sleep(1);
                                }
                                $set3 = 0;
                                $set4 = 0;
                                $set2++;
                }
                $set2 = 0;
                $set3 = 0;
                $set4 = 0;
                $set1++;
}

exit 0;