http://www.perlmonks.org?node_id=428462


in reply to Re^5: JAPH randomness
in thread JAPH randomness

OTOH, seeding the random number generator to allways get back the same results is very handy during testing.
-- #!/usr/bin/perl for(ref bless{},just'another'perl'hacker){s-:+-$"-g&&print$_.$/}