Beefy Boxes and Bandwidth Generously Provided by pair Networks
Welcome to the Monastery
 
PerlMonks  

Want to renew your passport in Italy? Try to find out how...

by bronto (Priest)
on Dec 15, 2004 at 16:31 UTC ( #415099=poem: print w/ replies, xml ) Need Help??

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

Comment on Want to renew your passport in Italy? Try to find out how...
Select or Download Code
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

Log In?
Username:
Password:

What's my password?
Create A New User
Node Status?
node history
Node Type: poem [id://415099]
Approved by kutsu
Front-paged by kutsu
help
Chatterbox?
and the web crawler heard nothing...

How do I use this? | Other CB clients
Other Users?
Others drinking their drinks and smoking their pipes about the Monastery: (13)
As of 2014-08-01 13:40 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    Who would be the most fun to work for?















    Results (20 votes), past polls