#!/usr/bin/perl 
use warnings;
use strict;

use Wily;
use Wily::Message;

die "Usage: $0 name\n" unless @ARGV;

my $id = $ENV{'WILYWIN'};
die "$0: WILYWIN not present\n" unless defined $id;

my $wily = Wily->new();
my $win = $wily->win_from_id($id);
$win->set_name($ARGV[0]);


