{

use PHP::Serialization qw(serialize);
use esmith::AccountsDB;

my $a = esmith::AccountsDB->open_ro || die "Error opening accounts db\n";
my $data;

foreach my $user ($a->users,$a->get('admin')){
    my $key = $user->key;
    $data->{$key} = $key;
}

$OUT .= serialize($data);

}
