<sad>This "poem" has come to my mind this morning, when I unsuccesfully tried to renew my passport and I have been running around in circles in my town without any useful result. This doesn't compile and hence doesn't run; in fact, I don't have my password renewed, yet. Try to run it after a month or two it has been posted, maybe I'll have my passport renewed and, then, it will work...</sad>

About the Can't locate patience.pm in @INC complain: that's because I lost it all this morning, if you can find it and provide some, you are welcome

#!/usr/bin/perl

use patience ;

use Bronto ;
use Phone::Mobile ;

my $self = Bronto->new ;
my $phone = $self->get("phone") ;
my $dad = $self->call("dad", using => $phone) ;

my $reply = $dad->ask("how do I renew my passport?") ;

# At this point $reply holds the value
# "There are new dispositions, go to the Carabinieri and ask them to r
+enew it"

alarm $at_7_am ;
sleep $all_night ;

# alarm rings now...
$bronto->have("shower") ;
$bronto->have("breakfast") ;
$bronto->goto("carabinieri") ;
$reply = $bronto->ring("carabinieri") ;

# $reply now holds
# "Call forwarded"... what? Forwarded... why?

$reply = $bronto->wait ;
# $reply holds: "They open at 10"

$reply = $bronto->say("But I read 8:00 - 22:00 here") ;
# $reply holds: "It changed months ago"

$reply = $bronto->localtime ; # 8:45

$bronto->goto("home") and sleep $until_10_am ;
$bronto->goto("carabinieri") ;
$reply = $bronto->ask("I have to renew my passport") ;
# $reply is now: "Sit down here, please" ;

sleep $ten_minutes ;

# $reply is now: "You have to ask to the City Police, not us";
# Do you wonder how it happened? Can't say. Maybe the carabiniere
# had a reference to $reply at hand...

$bronto->goto("city police") ;
$reply = $bronto->ask("I have to renew my passport") ;
# $reply is "Not us, try at the city records office"

$bronto->goto("downstairs") ;
$reply = $bronto->ask("I have to renew my passport") ;
# $reply is "Go to the main police station in Cagliari"

$reply = $bronto->feels ;
# $reply is "AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAARRRRGHHHHH!!!"

$bronto->watch(movie => 'http://www.imdb.com/title/tt0072901/') and
  learn_lesson() ;
[download]