#!/usr/bin/perl
# set terminal's title to argument given or 'urxvt'

print  "\033]2;" . (shift||'urxvt') . "\007";