diff --git a/sh/pacbm b/sh/pacbm
new file mode 100644
index 0000000..3cea066
--- /dev/null
+++ b/sh/pacbm
@@ -0,0 +1,5 @@
+#!/bin/sh
+expac -s '%m %n' | awk '
+{t+=$1;printf("%8.2fM %s\n",$1/(1024*1024),$2)}
+END{printf("%8.2fM\n",t/(1024*1024))}
+' | sort -n