Select Code to Download

perl -e 'my $test; eval q|$test = {
  "error":{
    "type":"ServiceException",
...
print "$@\n";
use Data::Dumper;
print Dumper($test);'

syntax error at (eval 1) line 2, near ""error":"

$VAR1 = undef;