#!/usr/local/bin/perl -w
#
# xtitle (C) 1997-2000 Stuart Caie
# changes the title of your XTerm (tested OK with xterm, dtterm, winterm)
# this is distributed under the terms of the GNU public license version 2
#
use strict;

my $line = shift @ARGV or exit; $_ = $ENV{'TERM'};

printf '%c]0;%s%c',27,$line,7 if /xterm/;
printf '%c1.y%s%c',144,$line,156 if /iris-ansi/;
printf '%c3.y%s%c',144,$line,156 if /iris-ansi/;