Select Code to Download

use Modern::Perl;

while (<DATA>) {
...
__DATA__
@a = ("'hello world'",'print ', ';');
eval("$a[1]$a[0]$a[2]");