From c84d811f66d007a7cb9f1086d9bc805c99ce5472 Mon Sep 17 00:00:00 2001
From: Ole Tange <ole@tange.dk>
Date: Fri, 18 May 2012 23:15:44 +0200
Subject: [PATCH] =?UTF-8?q?u=CA=8Dop=C7=9Dp=C4=B1sdn=20added?=
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit

---
 Makefile              |  2 +-
 upsidedown/upsidedown | 21 +++++++++++++++++++++
 2 files changed, 22 insertions(+), 1 deletion(-)
 create mode 100755 upsidedown/upsidedown

diff --git a/Makefile b/Makefile
index 6e06bb8..699fb00 100644
--- a/Makefile
+++ b/Makefile
@@ -4,5 +4,5 @@ blink/blink.1: blink/blink
 	pod2man blink/blink > blink/blink.1
 
 install:
-	parallel ln -sf `pwd`/{}/{} /usr/local/bin/{} ::: blink reniced em field forever neno rn stdout tracefile w4it-for-port-open
+	parallel ln -sf `pwd`/{}/{} /usr/local/bin/{} ::: blink reniced em field forever neno rn stdout tracefile w4it-for-port-open upsidedown
 	parallel ln -sf `pwd`/{}/{}.1 /usr/local/share/man/man1/{}.1 ::: blink
diff --git a/upsidedown/upsidedown b/upsidedown/upsidedown
new file mode 100755
index 0000000..513bca1
--- /dev/null
+++ b/upsidedown/upsidedown
@@ -0,0 +1,21 @@
+#!/usr/bin/perl
+
+# Try to flip input upside down with UNICODE
+
+my $down = ' @{}'.
+    q{ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz.,';0123456789?!"&()[]/\_‾};
+my @up = (" ",qw(@ } {),
+    qw{∀ q Ɔ p Ǝ Ⅎ ⅁ H I ſ ʞ ⅂ W N O Ԁ Ό ᴚ S ⊥ ∩ Ʌ M X ⅄ Z ɐ q ɔ p ǝ ɟ 6 ɥ ı ſ ʞ l},
+       qw{ɯ u o d b ɹ s ʇ n ʌ ʍ x ʎ z ˙ ' , ؛ 0 Ɩ 2 Ɛ ᔭ 5 9 Ɫ 8 6 ¿ ¡ „ ⅋ ) ( ] [ / \ ‾ _});
+
+my %up;
+@up{split//,$down}=@up;
+
+if(@ARGV) {
+    print @up{split//,reverse("@ARGV")},"\n";
+} else {
+    while(<>) {
+	print @up{split//,reverse($_)},"\n";
+    }
+}
+