#!/usr/bin/perl -w

package Szywiecki;

$Robert = "the boss";

sub terminate {
		my $name = shift;
		print "$Robert has canned $name's sorry butt\n";
}

terminate("arturo"); # prints "the boss has canned arturo's sorry butt"