Select Code to Download

#!/usr/bin/perl
use strict;
...
$twig->xparse($xml);
my $text=$twig->root->att('t');
print "|$text|\n";