diff --git a/contrib/conv/links2elinks_bookmarks.pl b/contrib/conv/links2elinks_bookmarks.pl
new file mode 100755
index 00000000..d92795d2
--- /dev/null
+++ b/contrib/conv/links2elinks_bookmarks.pl
@@ -0,0 +1,13 @@
+#!/usr/bin/perl
+
+# Usage example:
+# ./links2elinks_bookmarks.pl < ~/.links2/bookmarks.html >> ~/.config/elinks/bookmarks
+
+use 5.036;
+while (<>) {
+	state $d = 0;
+	$d++ if m,^<DL>$,;
+	$d-- if m,^</DL>$,;
+	say "$1\t\t$d\tF" if m,<DT><H3>(.*)</H3>,;
+	say "$2\t$1\t$d\t" if m,<DT><A HREF="(.*)">(.*)</A>,;
+}