sub interface_control {
        my $s           = shift;
        my (@r, $v, @h);
        $s->get_handles(rtrs=>\@r, vars=>\$v, hosts=>\@h);