#!/usr/bin/perl
#********************************* DISCLAIMER *********************************
# Copyright (c) 2002 IIJIMA Hiromitsu aka Delmonta, the Chairman of DENNOU
#	GEDOU GAKKAI, N. D. D. <http://www.dennougedougakkai-ndd.org>
#
# Redistribution and use in source and binary forms, with or without
# modification, are permitted under the BSD License modified in 22 July 1999,
# found at <http://www.opensource.org/licenses/bsd-license.php>.
#******************************************************************************

#******************************* WHAT IS THIS? ********************************
# This script changes the terminal window's title as given to the arguments.
#******************************************************************************

print "\033]0;";
print join(' ',@ARGV);
print "\007";