#!/usr/bin/perl

# Set title of an xterm
print "\033]0;@ARGV\007";