If you'd like any characters without specifying a character set to draw from:

    my @values = ();
    my $length = int( rand 8000 ) + 8000;

    push @values, int( rand 256 ) while( @values < length );
    $random_stuff = pack "c$length", @values;
[download]