Added example code showing how to destroy a token using Perl