diff --git a/al-recent-files-pipemenu b/al-recent-files-pipemenu
new file mode 100644
index 0000000..70d2ec8
--- /dev/null
+++ b/al-recent-files-pipemenu
@@ -0,0 +1,104 @@
+#!/bin/sh
+#    al-recent-files-pipemenu - a script to parse .recently-used.xbel
+#    and generate openbox pipe menu
+#    Copyright (C) 2010  John Crawley
+#    Borrowed with love by arcolinux.
+#
+#    This program is free software: you can redistribute it and/or modify
+#    it under the terms of the GNU General Public License as published by
+#    the Free Software Foundation, either version 3 of the License, or
+#    (at your option) any later version.
+#
+#    This program is distributed in the hope that it will be useful,
+#    but WITHOUT ANY WARRANTY; without even the implied warranty of
+#    MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+#    GNU General Public License for more details.
+#    version 2012/07/01-cb
+
+# Usage: add
+# <menu id="recent" label="Recent Files" execute="/path/to/cbpp-recent-files-pipemenu" />
+# to your .config/openbox/menu.xml, or use with cbpp-places-pipemenu (see comments there)
+
+maximum_entries=15 # max. number of entries in menu
+
+#######################################################################
+
+# look for recently-used.xbel
+if [ $XDG_DATA_HOME ] && [ -r "${XDG_DATA_HOME}/recently-used.xbel" ]
+then
+    file_path="${XDG_DATA_HOME}/recently-used.xbel"
+elif [ -r "${HOME}/.local/share/recently-used.xbel" ]
+then
+    file_path="${HOME}/.local/share/recently-used.xbel"
+elif [ -r "${HOME}/.recently-used.xbel" ]
+then
+    file_path="${HOME}/.recently-used.xbel"
+else
+    echo "$0: cannot find a readable recently-used.xbel file" >&2
+    echo '<openbox_pipe_menu>
+<separator label="No recently-used.xbel file found." />
+</openbox_pipe_menu>'
+    exit 1
+fi
+
+# if argument is --clear, empty .recently-used.xbel
+[ "$1" = '--clear' ] && {
+    cat <<':EOF' > "${file_path}"
+<?xml version="1.0" encoding="UTF-8"?>
+<xbel version="1.0"
+      xmlns:bookmark="http://www.freedesktop.org/standards/desktop-bookmarks"
+      xmlns:mime="http://www.freedesktop.org/standards/shared-mime-info"
+>
+</xbel>
+:EOF
+    exit
+}
+
+maximum_entries=$((maximum_entries+2))
+
+pre='    <item label="'
+mid='">
+    <action name="Execute"><command>'
+post='</command></action>
+    </item>'
+
+files=$( tac "${file_path}" |  awk -v MAX="$maximum_entries" -v PR="$pre" -v MI="$mid" -v PO="$post" 'BEGIN {
+    RS="</bookmark>";
+    FS="<info>";
+}
+(NR == MAX) {exit}
+!/<bookmark/ {next}
+!/href=[\"'\'']file:\/\// {next}
+# $1 is the command, $2 the file path
+{
+    sub(/^.*exec=\"\&apos\;/,"",$1)
+    sub(/\&apos\;.*$/,"",$1)
+    sub(/ *%./,"",$1)
+    sub(/^.*file:\/\//,"",$2)
+    sub(/[\"'\''].*$/,"",$2)
+    gsub(/%22/,"\\&quot;",$2)
+    gsub(/%3C/,"\\&lt;",$2)
+    gsub(/%3E/,"\\&gt;",$2)
+    name=$2
+    sub(/^.*\//,"",name)
+    gsub(/_/,"__",name)
+    gsub(/\&apos;/,"\\&apos;\\&quot;\\&apos;\\&quot;\\&apos;",$2)
+    print (PR name MI $1 " '"'"'" $2 "'"'"'" PO)
+}' )
+
+# use perl to decode urlencoded characters
+files=$(perl -MURI::Escape -e 'print uri_unescape($ARGV[0]);' "$files")
+
+output='<openbox_pipe_menu>
+'"$files"'
+<separator />
+    <item label="Clear Recent Files">
+        <action name="Execute">
+            <command>
+            &apos;'"$0"'&apos; --clear
+            </command>
+        </action>
+    </item>
+</openbox_pipe_menu>
+'
+printf '%s' "$output"  # printf because echo sometimes eats backslashes
\ No newline at end of file