Programa final usando o package.

fixtures-final.pl

#!/usr/bin/env perl
 
 use strict;
 use warnings;
 
 use JSON;
 
 use Util::Password;

 my $password = Util::Password::Encrypt('{#MinhaSenhaSuuuuperSegura#}');
 my $root_user = {
    email => 'app@chail.com.br',
    name => 'Chail Root Admin',
    password => $password,
    role => 'admin',
    active => JSON::true,
 };
 
 print to_json($root_user, {pretty => 1} )