sub callit
{
$p->(@_);
}