#!/usr/bin/env perl

use strict;
use warnings;
use String::Urandom;

my $su = String::Urandom->new(
    LENGTH => 255,
    CHARS  => [ qw( a b c 1 2 3 ) ]
  );

my $length = $su->str_length;
my $chars  = $su->str_chars;
my $string = $su->rand_string;

print <<RESULTS;
   Length: $length
   Chars:  @$chars
   Result: $string
RESULTS
