123456789
#!/usr/bin/perl -wuse strict;use Tkx;my $mw = Tkx::widget->new(".");$mw->g_wm_attributes(-alpha => 0.5);Tkx::MainLoop();