$|=1;
use Device::BCM2835;
Device::BCM2835::init()|| die "Could not init library";

my @pins = (&Device::BCM2835::RPI_GPIO_P1_07,
&Device::BCM2835::RPI_GPIO_P1_11,&Device::BCM2835::RPI_GPIO_P1_12,
&Device::BCM2835::RPI_V2_GPIO_P1_13,&Device::BCM2835::RPI_GPIO_P1_15,
&Device::BCM2835::RPI_GPIO_P1_16,&Device::BCM2835::RPI_GPIO_P1_18,
&Device::BCM2835::RPI_GPIO_P1_22);

Device::BCM2835::gpio_fsel($_, &Device::BCM2835::BCM2835_GPIO_FSEL_OUTP) for @pins;

Device::BCM2835::peri_write(&Device::BCM2835::BCM2835_PERI_BASE  + 0x200000, 0x1C);
print "No seg fault!!\n";