[SOLVED] CS use strict;

use strict;
use warnings;

use tests::arc4;

my (@arc4);

sub random_init {
if (@arc4 == 0) {
my ($seed) = @_;
$seed = 0 if !defined $seed;
@arc4 = arc4_init (pack (V, $seed));
}
}

sub random_bytes {
random_init ();
my ($n) = @_;
return arc4_crypt (@arc4, x $n);
}

sub random_ulong {
random_init ();
return unpack (V, random_bytes (4));
}

1;