#!/usr/bin/perl -w

package Szywiecki;

$Robert = "el jefe";

sub terminate {
  my $name = shift;
  print "$Robert ha despedido a ${name}\n";
}

terminate("arturo"); # muestra "el jefe ha despedido a arturo"

package main;

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