Select Code to Download

#!/bin/perl -w
use strict; 
...
                             # in scope any more 
$p->("tutu");                # but $p still uses it

obj: toto - tata
obj: toto - titi
obj: foo - tutu
obj: foo - tutu