sub input_pin {
   my $name = sprintf( "Device::BCM2835::RPI_V2_GPIO_P1_%02d", $_[0] );
   no strict "refs";
   return $name->();
}