#!/usr/bin/perl
use strict;
use diagnostics;
use Sys::Ptrace qw(ptrace PTRACE_ATTACH);

ptrace PTRACE_ATTACH, 9701;

open my $fh, '<', '/proc/9701/mem' or die "could not open mem for reading: $!";
my $buf;
while (1) {
    my $res = read $fh, $buf, 8*1024;
    die "could not read 8KB from mem: $!" unless defined $res;
    exit if 0 == $res;
    print $buf;
};