$ sudo perl -we 'open my $mem, "+< /dev/mem"; seek $mem, 0xDEADBEEF, 0; print $mem "whatever" or die "Failed to write: $!"; close $mem';