do { unlink('perl') for ($me); } unless (__LINE__ < 40);