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