#!/usr/bin/perl

use strict; use warnings; use diagnostics;

package main;
my $foo = "hello"; $main::foo = "world";

print "$foo $main::foo\n";