#!/usr/bin/env perl
open W, ">", "/tmp/$$";
print W "0123456789abcdef" x 4, "\n"; while(1)