sub wryte
{
    local $~ = shift;
    write;
    }

wryte "MY_TOP";