#!/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