Step 1, produce necessary object structure.

$ perl beatport.pl http://www.beatport.com/release/desire/436217
 = [
          {
            'artist' => [
                          'Al Bizzare',
                          'Alateya'
                        ],
            'length' => '6:17',
            'title' => 'Desire feat. Alateya (Original Mix)'
          },
          {
            'artist' => [
                          'Al Bizzare',
                          'Alateya'
                        ],
            'length' => '6:53',
            'title' => 'Desire feat. Alateya (Club Mix)'
          }
        ];
And now we can start adding releases. YAY.

http://musicbrainz.org/edit/17976208
The file generation does not take 5 seconds.

Pressing enter to finish and cleanup the file is a bit too obnoxious.
Appease the newline gods.
typo
Set Digital-preferred states/statuses

Since these vendors sell downloads, set no packaging, and Digital Media
media type.
Proper attribute and value for Digital Media format
also apparently whitespace
fixes #1
Actually set Digital Media on Beatport releases
actually fixes #1
actually
The lookup by URL works with custom domains
Hostname restrictions be gone.