The Perl Toolchain Summit needs more sponsors. If your company depends on Perl, please support this very important event.

#!/usr/local/bin/perl -w

use Tk;

$mw = MainWindow->new();
$mw->geometry('-0-0');
MainLoop;