$w->set_binding( \&myfunc, "\cF" );
$w->clear_binding( \&myfunc );