#!/usr/bin/perl
# print a decent random string for .Xauthority

use strict;
use FileHandle;

my ($foo, $seed);

# Read our seed from /dev/urandom
my $urandom = new FileHandle "</dev/urandom";
die "can't open /dev/urandom" unless $urandom;

for (1..4) {
    sysread($urandom, $foo, 4);
    $seed = unpack("L", $foo);
    printf("%8.8x", $seed);
}

printf("\n");
$urandom->close;
exit(0);