for(i=0;k="!\"#$%&'()*+,-./0123456789:;<=>?@[\\]^_`{|}~"[i];)print("$"+k+"="+([," ",,3333,z="0",,,x=(t=1e3)+" "+t,x,,,,z,,"\n","test.pl",,,,,,,,,," \n-","\x1c",t,60,t,z,,z,,5.014002,"STDOUT_TOP",,,,z,,"STDOUT"][i++]||""))
Note that non-ascii characters in the above source code will be escaped (such as \x9f).