Select Code to Download

#!/usr/bin/perl

...
    or print("coaked\n");

print $name;

$ test.cgi | od -c
0000000   C   o   n   t   e   n   t   -   T   y   p   e   :       t   
+e
...
0000040   =   u   t   f   -   8  \n  \n 346 227 245 346 234 254 350 25
+2
0000060 236
0000061

#!/usr/bin/perl

...

# Output
print $name;