Select Code to Download

==== test. pl ======
#!/usr/bin/perl
...
}
END { }
1;

local* F;
fopen(F, ">tst");
print F "hi";
fclose F;