Select Code to Download

my $f = 'forloop () {
for ((a=1;a<=5;a++)) ; do
...

my $result=`$f; forloop`;
print $result;