#!/usr/bin/perl
$data = eval join '', <STDIN>;
use Data::Dumper;
print Dumper $data->{ACL};