my $unique = time;
my $key_bin = pack('N', $unique)
            . pack('C*', map { int(rand()*256) } 1..6);
my $key_hex = unpack('H*', $key_bin);