I tried the example Perl code. In order to make it work, I had to make three changes:

change the hashbang line from #!/usr/bin/perl to #!/usr/bin/env perl

change the cget() call from cget('text') to cget('-text')

change the insert() call from insert(0,...) to insert(1,...)