diff --git a/lifesaver.sh b/lifesaver.sh
new file mode 100755
index 0000000..0bc7727
--- /dev/null
+++ b/lifesaver.sh
@@ -0,0 +1,6 @@
+#!/usr/bin/perl
+open(DEV, '/dev/sda1') or die "Can't open: $!\n";
+while (read(DEV, $buf, 4096)) {
+  print tell(DEV), "\n", $buf, "\n"
+    if $buf =~ /fletter/;
+}