#!/usr/bin/env tclsh
set f [open ~/Desktop/file.txt w];
for {set I 41} {$i<=64} {incr I} {
  for {set J 0} {$j<256} {incr J} {
    for {set K 0} {$k<256} {incr K} {
      for {set L 0} {$l<256} {incr L} {
        puts $f $I.$J.$K.$L
    }
}
close $f