#!perl
use strict;
use warnings;

$::z = 'bye';
our($z);
print $z, " is ", $::z, "\n";