#!/usr/bin/perl

require 'sys/ioctl.ph';
require '_h2ph_pre.ph';

sub PCICARD_IOC_NUM () { ord('0'); }
sub PCICARD_SET_REGISTER () { &_IOR( &PCICARD_IOC_NUM, 1, 'int' ); }
sub PCICARD_GET_REGISTER () { &_IOW( &PCICARD_IOC_NUM, 2, 'int' ); }

$value = 0x03;

open(PCI, '+</dev/pcimax');
ioctl(PCI, &PCICARD_SET_REGISTER, \$value);
close(PCI);