Help for this page
&japh(); ... $japh=`perl $jr`;$japh="sub japh { $japh }";eval($japh);unlink($jr); }