#!/usr/bin/perl -w
use MIME::Base64;

open RND,'<','/dev/urandom';
sysread RND,$rnd,1024;
close RND;
print encode_base64($rnd);