Select Code to Download

#!/usr/bin/perl -w

...
}

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

#!/usr/bin/perl -w

...

$Robert = "the boss";
print "\$Robert = $Robert\n";

#!/usr/bin/perl -w

...

$main::Robert = "the boss";
print "\$main::Robert = $main::Robert\n";

#!/usr/bin/perl -w

...

print "Here at work, 'Robert' is $Robert, but over at the pool hall, '
+Robert'
is $PoolHall::Robert\n";

#!/usr/bin/perl -w

...
print "\$foo: $foo\n"; # prints "Hey!" -- the my variable's still in s
+cope
# if we hadn't made that declaration above, this would be an error: th
+e
# interpreter would tell us that Bar::foo has not been defined.

#!/usr/bin/perl -w

...
sub showfoo {
    print "\$foo: $foo\n";
}