#!/usr/bin/perl -w
# Generate binary bytes with all 8bit byte values to stdout.

use strict;
if( -t STDOUT )
{
   die <<EOT;
This is going to dump binary data to stdout, so you definitely want
to pipe the output to something that is not a TTY.
EOT
}

for(my $r = 1; $r <= 3; $r++)
{
   for(my $i = 0; $i < 256; $i++)
   {
      print chr($i) x $r;
   }
}