Select Code to Download

#!/usr/bin/perl -w

package Szywiecki;
...
# terminate("arturo"); # produce un error si se descomenta
__OUTPUT__
el jefe ha despedido a arturo

#!/usr/bin/perl -w

use strict;

$Robert = "el jefe";  # error!
print "\$Robert = $Robert\n";

#!/usr/bin/perl -w

use strict;

$main::Robert = "el jefe";
print "\$main::Robert = $main::Robert\n";

#!/usr/bin/perl -w

package Szywiecki;
...
print "Aquí en el trabajo, 'Robert' es $Robert, pero en la piscina, 'R
+obert' es $PoolHall::Robert\n";
__OUTPUT__
Aquí en el trabajo, 'Robert' es el jefe, pero en la piscina, 'Robert' 
+es el experto en dardos

#!/usr/bin/perl -w

use strict;
...
$foo: Hey!
$main::foo: Yo!  
$foo: Hey!

#!/usr/bin/perl -w

use strict;
...
package Movie;

print "Bob => $bob, Carol => $carol\n";

#!/usr/bin/perl -w

use strict;
...
mysub    result 'global value'
localsub result 'local value'
no sub   result 'global value'