Select Code to Download

use CGI qw/ :standard /;
use Data::Dumper;
use HTML::TokeParser;
...
}

print Data::Dumper->Dump( [ \%text ], [qw( text )] );