Help for this page
>perl -wMstrict -le "use Data::Dumper; ... 'email' => $services{'service1'}{'email' +} } );