in reply to Re: Live and Die
in thread Live and Die

#!/usr/bin/perl package ::Job::Bug::Hack::CLEAN::CODE; sub present::a{ $_=(caller())[//-//]; $_=~s/:+/\nGood /g; "$_\n\n" } print a present;