my $attr = { RaiseError => 1,
             AutoCommit => 1,
             ChopBlanks => 1,
            };

my $schema = MyApp::Schema->connect
    (
     "dbi:mysql:db_name",
     $user,
     $pass,
     $attr
    );

# Just grab one-
my $user = $schema->resultset("User")
        ->search({},{ order_by => 'RAND()' })->first;

print
   "User ", $user->username,
    " has these roles: ",
     join(", ", $user->roles) || "none!", "\n";