#!/usr/bin/perl -w

use strict;

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