#!/usr/bin/perl -w

package Szywiecki;

$Robert = "el jefe";

package PoolHall;

$Robert = "el experto en dardos";

package Szywiecki; # a trabajar otra vez!

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