#!/usr/local/bin/perl

use strict;
use warnings;

use CGI;
use Data::Dumper;

my $cgi = CGI->new(  '{
      "Image": {
          "Width":  800,
          "Height": 600,
          "Title":  "View from 15th Floor",
          "Thumbnail": {
              "Url":    "http://www.example.com/image/481989943",
              "Height": 125,
              "Width":  "100"
          },
          "IDs": [116, 943, 234, 38793]
        }
   }'
);

print Dumper( $cgi );


$cgi = CGI->new(  '{
      "Image": {
          "Width=":  800,
          "Height": 600,
          "Title":  "View from 15th Floor",
          "Thumbnail": {
              "Url":    "http://www.example.com/image/481989943",
              "Height": 125,
              "Width":  "100"
          },
          "IDs": [116, 943, 234, 38793]
        }
   }'
);

print Dumper( $cgi );