use Algorithm::Numerical::Shuffle qw/shuffle/;

my $random = join '', shuffle split //, "The quick brown fox";
[download]

Though "truly random" is often a bit of a misnomer in computer land.