Select Code to Download

$code = 'whatever';

eval qq(return 1; $code);
...
} else {
  print "Syntax ok\n";
}