#!/usr/bin/env perl
use strict;
use Qt;
my $app = Qt::Application(\@ARGV);
my $button = Qt::PushButton("proggen.org", undef);
$app->connect($button, SIGNAL("clicked()"), SLOT("quit()"));
$app->setMainWidget($button);
$button->show();
exit $app->exec();