$ perl -E '
say join q{.}, map { int rand 256 } 1 .. 4
   for 1 .. 1500;' > spw1112250.dat
$