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