#!/usr/bin/perl

my $urand = -e '/dev/urandom' ? 1 : 0;
my $rand =  -e '/dev/random'  ? 1 : 0;

if(!$urand && !$rand) {
    die "Both /dev/urandom and /dev/random are missing!";
}
elsif ($urand && !$rand) {
    print "Symlinking /dev/random to /dev/urandom\n";
    symlink('/dev/urandom', '/dev/random');
}
elsif (!$urand && $rand) {
    print "Symlinking /dev/urandom to /dev/random\n";
    symlink('/dev/random', '/dev/urandom')
}
else {
    print "/dev/urandom and /dev/random exist\n";
}