use PeekPoke qw(peek poke);

my $val = peek($address);
poke($address, $val|1);