for my $sub (qw{gpio_fsel gpio_set gpio_clr}) {
    no strict 'refs';
    *$sub = \&{"Device::BCM2835::$sub"};
}