#!/usr/bin/perl
use strict;
use warnings;
use Android;

my $droid = Android -> new();
my $Out = 'try data for ever looop';
$droid -> makeToast ('event invfo');# done
$droid -> vibrate(); #  done
$droid -> dialogCreateAlert ('d.title','d.data');
$droid -> dialogSetPositiveButtonText ('da');
$droid -> dialogShow();
$Out = $droid -> dialogGetResponse() -> {'result'};
if ($Out -> {'which'} eq 'positive'){
$droid -> makeToast ('have positivee response');}
$droid -> dialogCreateSpinnerProgress('test title','data');
$droid -> dialogShow();
sleep 3;
$droid -> dialogDismiss();