Select Code to Download

  $album = Album->new;
  $album->add_song(Song->new(...));
  ...

 $as_json = q{ { album_title: ...,
               songs: [ { song_title: ...,  },
...
                      ]
                }
             };

  $as_perl = JSON->new->decode($as_json);