use Crypt::Random qw( makerandom ); 
my $r = makerandom ( Size => 448, Strength => 1 );