Port 70 & 71 access

[ace2010]

Hi all, I'm a novice perl user, but have been tasked at work to write a script to access the CMOS and update values. Just not sure how to go about it in perl.

I have this code, but when passing the value and offset it does not write to that location. Do I need to use ioperm() or iopl() to open the ports? If so, what would be the correct syntax?

Thanks for any assistance.

[ace2010]

Sorry, forgot to put the code I have:

sub WriteToCmos {
my $offset = shift;
my $value = shift;
`m outb 70 $offset`;
`m outb 71 $value`;
return;
}