use strict;
use warnings;

use lib qw(.);
use Data::Dumper;

use TimeOutDialog;

my $x;
TimeOutDialog::ask(\$x);

if ( defined ($x) )
{
    print "*$x*";
}
else
{
    print "timeout\n";
}