Clausura y Memoria

La siguiente sesión con el depurador muestra el interés de la línea

   push @ALLOWED, @_;

y de tener @ALLOWED declarada como una variable léxica en el ámbito del fichero:

lhp@nereida:~/Lperl/src/systemcommand/script$ perl -wde 0
main::(-e:1):   0
  DB<1> push @INC, '../lib'
  DB<2> use System::Commands qw{ls}
  DB<3> x ls('*.pl')
0  'usesystemcommand.pl
'
  DB<4> use System::Commands qw{ps}
  DB<5> p ps
  PID TTY          TIME CMD
 1632 pts/18   00:00:00 su
 1633 pts/18   00:00:00 bash
20981 pts/18   00:00:00 perl
20988 pts/18   00:00:00 ps
  DB<6> p ls
usesystemcommand.pl
  DB<7> p echo('Good morning')
Undefined subroutine &main::echo called at (eval 15)[/usr/share/perl/5.8/perl5db.pl:628] line 2.