#!/usr/bin/perl
use warnings;
use strict;

use MIME::Base64;

use constant XORmask => '30d1c6615af8cfc9';

my $id = 'Z0xcAVtKAwkDHVcKVF5TCQ';
my $track_decode = decode_base64($id);
print $track_decode ^ XORmask, "\n";