#!/usr/bin/perl

use Fcntl;
use bytes;

sysopen(MEM, '/dev/mem', O_RDONLY) or die;
sysseek(MEM, 0xc0000, SEEK_SET) or die;
sysread(MEM,$data,65536);
close(MEM);

print $data;

