Added whereami reimplementation

bin/whereami

@@ -0,0 +1,6 @@
+#!/usr/bin/env tclsh
+set TTY [exec tty]
+set PWD [exec pwd]
+set HOST [exec hostname]
+set IP [exec sh -c {ip -4 addr | grep -oP '(?<=inet\s)\d+(\.\d+){3}' | sed -n '2p'}] ;# local ipv4 from ethernet or first down list
+puts "$TTY $PWD $HOST $IP"