#!/usr/local/bin/perl

use warnings;
use strict;

use Qt;

my $a = Qt::Application();

my $ret = Qt::MessageBox::information(undef, $0,
                                      'Are you sure you want to quit?',
                                      'Yes', 'No');

exit $ret;