#!/usr/bin/perl -w
# Deterministically generate random binary bytes to stdout.

use strict;

unless( $#ARGV == 1 )
{
   die "$0 <seed> <size>\n";
}
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
}

srand $ARGV[0];
for(my $i = 0; $i < $ARGV[1]; $i++)
{
   print chr(int(rand(256)));
}