#!/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"