#!/usr/bin/env perl use strict; use warnings; use JSON; my $untrusted = q{ETAGO problem?