http://www.perlmonks.org?node_id=415099

<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() ;

Sigh!
--bronto


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

Replies are listed 'Best First'.
Re: Want to renew your passport in Italy? Try to find out how...
by ZlR (Chaplain) on Dec 15, 2004 at 20:54 UTC
    eh ! an obscure movie reference, is it not ?
    ils sont fous ces romains ;)
Re: Want to renew your passport in Italy? Try to find out how...
by nimdokk (Vicar) on Dec 16, 2004 at 11:56 UTC
    Hmm, I read something similar by Umberto Eco, although that was about renewing a Driver's Licence I think :-)
Re: Want to renew your passport in Italy? Try to find out how...
by giulienk (Curate) on Dec 22, 2004 at 11:19 UTC

    Nice poetry :) And that one is a great movie i forgot to vote on, 8/10 for me.


    $|=$_="1g2i1u1l2i4e2n0k",map{print"\7",chop;select$,,$,,$,,$_/7}m{..}g