Select Code to Download

sub rndStr{ join'', @_[ map{ rand @_ } 1 .. shift ] }

sub rndStr{ 
    my( $n, @chars ) = @_;
    return join'', @chars[ map{ int rand @chars } 1 .. $n ];
}

local $/;
my @chars = map chr, 0 .. 255;;
print rndStr 1024, @chars  for 1 .. 2**20;;