#!/usr/local/bin/perl -w

use strict;

$\="\n";
$,=" ";

open(R,"/dev/random");
while(1) {
  my $x;
  read(R,$x,1);
  print unpack("C",$x);
}