#!/usr/bin/perl -w

use strict;
use Tkx;

my $mw = Tkx::widget->new(".");
$mw->g_wm_attributes(-alpha => 0.5);

Tkx::MainLoop();