diff --git a/sandbox/tracemem.pm b/sandbox/tracemem.pm
new file mode 100644
index 0000000000..828622fff3
--- /dev/null
+++ b/sandbox/tracemem.pm
@@ -0,0 +1,14 @@
+our $old = 0;
+BEGIN {
+    unshift @INC, sub {
+        my ($self, $file) = @_;
+        use GTop qw();
+        my $current=GTop->new->proc_mem($$)->size;
+        my $delta=$current-$old;
+        printf "pid %d proc_mem %d delta %-10d file %s\n", $$, $current, $delta, $file;
+        $old=$current;
+    }
+}
+1;
+
+# run with: perl -Isandbox -mtracemem ...