#!/bin/ksh

hexdump /dev/urandom | perl -e 'while (<> =~ m/^....... ([0-9a-f]{4}) ([0-9a-f]{4}) ([0-9a-f]{4}) ([0-9a-f]{4}) ([0-9a-f]{4}) ([0-9a-f]{4}) ([0-9a-f]{4}) ([0-9a-f]{4})/) {print "fd00:$1:$2:$3:$4:$5:$6:$7\n";}'