#!/usr/bin/env perl

use strict;
use warnings;

use Device::BCM2835;
...
*gpio_fsel = \&Device::BCM2835::gpio_fsel;
...
my $inputcmd = ...;
...
gpio_fsel(RPI_V2_GPIO_P1_07, $inputcmd);
...