# perl -le'print "\e]0;$ENV{HOST}\7" if -t'