use strict;
use warnings;

our @Users = (
    { Name => "stephenb",
      RealName => "Stephen B.",
      Organization => "Bourne Again Shell", },
    { Name => "dennisr",
      RealName => "Dennis R.",
      Organization => "C", },
    { Name => "bjarnes",
      RealName => "Bjarne S.",
      Organization => "C++", },
    { Name => "billj",
      RealName => "Bill J.",
      Organization => "C shell", },
    { Name => "johnb",
      RealName => "John B.",
      Organization => "FORTRAN", },
    { Name => "jamesg",
      RealName => "James G.",
      Organization => "Java", },
    { Name => "brendane",
      RealName => "Brendan E.",
      Organization => "JavaScript", },
    { Name => "johnm",
      RealName => "John M.",
      Organization => "Lisp", },
    { Name => "seymourp",
      RealName => "Seymour P.",
      Organization => "LOGO", },
    { Name => "larryw",
      RealName => "Larry W.",
      Organization => "Perl", },
    { Name => "rasmusl",
      RealName => "Rasmus L.",
      Organization => "PHP", },
    { Name => "guidovr",
      RealName => "Guido van R.",
      Organization => "Python", },
    { Name => "yukihirom",
      RealName => "Yukihiro M.",
      Organization => "Ruby", },
    { Name => "guys",
      RealName => "Guy S.",
      Organization => "Scheme", },
    { Name => "johno",
      RealName => "John O.",
      Organization => "Tcl", },
    { Name => "donaldk",
      RealName => "Donald K.",
      Organization => "TeX", },
);

for my $u (@Users) {
    $u->{Privileged}   = 1;
    $u->{Password}     = 'password';
    $u->{EmailAddress} = $u->{Name} . '@example.com';
}

push @Users, (
        { Name => "requestor",
          RealName => "Asks lots of Questions",
          Organization => "Your Company",
          EmailAddress => 'requestor@example.com' }
);

1;