Select Code to Download

use CGI qw(a escapeHTML); # amongst other things
...
print a({-href => $dangerous}, escapeHTML($dangerous));