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

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