Select Code to Download

#!/usr/bin/env perl 
use strict;
...
$y = 'world';
eval "\$out = qq{$hd}";
print $out;