for my $a (0..255) {
    for my $b (0..255) {
        for my $c (0..255) {
            for my $d (0..255) {
              print "$a $b $c $d\n";
            }
        }
    }
}