<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]

Sigh!
--bronto

In theory, there is no difference between theory and practice. In practice, there is.

In reply to Want to renew your passport in Italy? Try to find out how... by bronto

Title:
Use:  <p> text here (a paragraph) </p>
and:  <code> code here </code>
to format your post, it's "PerlMonks-approved HTML":


  • Posts are HTML formatted. Put <p> </p> tags around your paragraphs. Put <code> </code> tags around your code and data!
  • Titles consisting of a single word are discouraged, and in most cases are disallowed outright.
  • Read Where should I post X? if you're not absolutely sure you're posting in the right place.
  • Please read these before you post! —
  • Posts may use any of the Perl Monks Approved HTML tags:
    a, abbr, b, big, blockquote, br, caption, center, col, colgroup, dd, del, details, div, dl, dt, em, font, h1, h2, h3, h4, h5, h6, hr, i, ins, li, ol, p, pre, readmore, small, span, spoiler, strike, strong, sub, summary, sup, table, tbody, td, tfoot, th, thead, tr, tt, u, ul, wbr
  • You may need to use entities for some characters, as follows. (Exception: Within code tags, you can put the characters literally.)
            For:     Use:
    & &amp;
    < &lt;
    > &gt;
    [ &#91;
    ] &#93;
  • Link using PerlMonks shortcuts! What shortcuts can I use for linking?
  • See Writeup Formatting Tips and other pages linked from there for more info.