in reply to modify external data
use PeekPoke qw(peek poke); my $val = peek($address); poke($address, $val|1); [download]
Thank you. However it didn't work :)
Joost pointed me to right direction, I have read XS tutorial some time ago, waiting for task to arise, where I could use it and study it more, on practice. The time has come.