#!/usr/bin/perl

$width = shift @ARGV;

while (1) {
  for ($i = 0; $i < $width; $i++) {
    $char = int(rand(256)); 
    while ($char == 0 or ($char >= 127 and $char <= 160)) {
      $char = int(rand(256))
    }
    $char = chr($char);
    $char =~ s/[\r\n]/ /g;
    print $char
  }
  print "\n"
}