Select Code to Download

#!/usr/bin/perl
use strict;
...
    $string .= $range[ rand @range ] for 1 .. (rand 48) + 2;
    return $string . (rand() < .5 ? $range[ rand @range ] : '') . reve
+rse $string;
}

#!/usr/bin/perl
use strict;
...
onmlkjihgfedcbabcdefghijklkjihgfedcbabcdefghijklmno
onmlkjihgfedcbabcdefghijklkjihgfedcbabcdefghijklmno
111111111111111111161111111111111111111