my $bytes= 4*1024; # Set to number of bytes to copy
my $copy= unpack "P$bytes", 0x78000000;