sub callit
{
    goto &$p;
}