#!perl
$title=$ARGV[0];
#print "\033]0X".$title."\014";
# fixed for X11R4:
print "\033]0;".$title."\007";