Instead of this:

print "Found Data: $text\n";
[download]

try this:

use Data::Dumper qw/Dumper/;

...
print Dumper( $text );
[download]

As explained in the manual for HTML::TokeParser, the "get_tag" function returns a reference to an array, and Dumper is just an easy way to see what the array elements contain.